Amiga Format CD 7

home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / completion.elc < prev next >
Emacs Compiled Lisp | 1994-09-02 | 34.2 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	Emacs Compiled Lisp `(other/emacsCompiledLisp)`	magic	Unsupported
`100%`	file	Emacs/XEmacs v19 byte-compiled Lisp data	default
`99%`	file	data	default
`55%`	TrID	Emacs/XEmacs byte-compiled Lisp (generic)	default
`44%`	TrID	Summation Document Image Information Load File	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 46 72 69 20 53 65 |it.edu o|n Fri Se|
|00000040| 70 20 20 32 20 30 32 3a | 34 32 3a 35 38 20 31 39 |p  2 02:|42:58 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 63 6f 6d 70 6c 65 74 |9.0/lisp|/complet|
|00000080| 69 6f 6e 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |ion.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 32 35 2e 39 | version| 19.25.9|
|000000a0| 35 2e 35 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |5.5..;;;| bytecom|
|000000b0| 70 20 76 65 72 73 69 6f | 6e 20 46 53 46 20 32 2e |p versio|n FSF 2.|
|000000c0| 31 30 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |10.;;; o|ptimizat|
|000000d0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|000000e0| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|000000f0| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000100| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000110| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000120| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000130| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000140| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000150| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000160| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000170| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|00000180| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|00000190| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001a0| 20 22 60 2f 67 64 2f 67 | 6e 75 2f 65 6d 61 63 73 | "`/gd/g|nu/emacs|
|000001b0| 2f 31 39 2e 30 2f 6c 69 | 73 70 2f 63 6f 6d 70 6c |/19.0/li|sp/compl|
|000001c0| 65 74 69 6f 6e 2e 65 6c | 27 20 77 61 73 20 63 6f |etion.el|' was co|
|000001d0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001e0| 20 31 39 22 29 29 0a 0a | 28 64 65 66 76 61 72 20 | 19"))..|(defvar |
|000001f0| 65 6e 61 62 6c 65 2d 63 | 6f 6d 70 6c 65 74 69 6f |enable-c|ompletio|
|00000200| 6e 20 74 20 22 5c 0a 2a | 4e 6f 6e 2d 6e 69 6c 20 |n t "\.*|Non-nil |
|00000210| 6d 65 61 6e 73 20 65 6e | 61 62 6c 65 20 72 65 63 |means en|able rec|
|00000220| 6f 72 64 69 6e 67 20 61 | 6e 64 20 73 61 76 69 6e |ording a|nd savin|
|00000230| 67 20 6f 66 20 63 6f 6d | 70 6c 65 74 69 6f 6e 73 |g of com|pletions|
|00000240| 2e 0a 49 66 20 6e 69 6c | 2c 20 6e 6f 20 6e 65 77 |..If nil|, no new|
|00000250| 20 77 6f 72 64 73 20 61 | 64 64 65 64 20 74 6f 20 | words a|dded to |
|00000260| 74 68 65 20 64 61 74 61 | 62 61 73 65 20 6f 72 20 |the data|base or |
|00000270| 73 61 76 65 64 20 74 6f | 20 74 68 65 20 69 6e 69 |saved to| the ini|
|00000280| 74 20 66 69 6c 65 2e 22 | 29 0a 28 64 65 66 76 61 |t file."|).(defva|
|00000290| 72 20 73 61 76 65 2d 63 | 6f 6d 70 6c 65 74 69 6f |r save-c|ompletio|
|000002a0| 6e 73 2d 66 6c 61 67 20 | 74 20 22 5c 0a 2a 4e 6f |ns-flag |t "\.*No|
|000002b0| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 73 61 76 65 |n-nil me|ans save|
|000002c0| 20 6d 6f 73 74 2d 75 73 | 65 64 20 63 6f 6d 70 6c | most-us|ed compl|
|000002d0| 65 74 69 6f 6e 73 20 77 | 68 65 6e 20 65 78 69 74 |etions w|hen exit|
|000002e0| 69 6e 67 20 45 6d 61 63 | 73 2e 0a 53 65 65 20 61 |ing Emac|s..See a|
|000002f0| 6c 73 6f 20 60 73 61 76 | 65 64 2d 63 6f 6d 70 6c |lso `sav|ed-compl|
|00000300| 65 74 69 6f 6e 73 2d 72 | 65 74 65 6e 74 69 6f 6e |etions-r|etention|
|00000310| 2d 74 69 6d 65 27 2e 22 | 29 0a 28 64 65 66 76 61 |-time'."|).(defva|
|00000320| 72 20 73 61 76 65 2d 63 | 6f 6d 70 6c 65 74 69 6f |r save-c|ompletio|
|00000330| 6e 73 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 7e 2f |ns-file-|name "~/|
|00000340| 2e 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 22 20 22 5c |.complet|ions" "\|
|00000350| 0a 2a 54 68 65 20 66 69 | 6c 65 6e 61 6d 65 20 74 |.*The fi|lename t|
|00000360| 6f 20 73 61 76 65 20 63 | 6f 6d 70 6c 65 74 69 6f |o save c|ompletio|
|00000370| 6e 73 20 74 6f 2e 22 29 | 0a 28 64 65 66 76 61 72 |ns to.")|.(defvar|
|00000380| 20 73 61 76 65 2d 63 6f | 6d 70 6c 65 74 69 6f 6e | save-co|mpletion|
|00000390| 73 2d 72 65 74 65 6e 74 | 69 6f 6e 2d 74 69 6d 65 |s-retent|ion-time|
|000003a0| 20 33 33 36 20 22 5c 0a | 2a 44 69 73 63 61 72 64 | 336 "\.|*Discard|
|000003b0| 20 61 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 69 66 | a compl|etion if|
|000003c0| 20 75 6e 75 73 65 64 20 | 66 6f 72 20 74 68 69 73 | unused |for this|
|000003d0| 20 6d 61 6e 79 20 68 6f | 75 72 73 2e 0a 28 31 20 | many ho|urs..(1 |
|000003e0| 64 61 79 20 3d 20 32 34 | 2c 20 31 20 77 65 65 6b |day = 24|, 1 week|
|000003f0| 20 3d 20 31 36 38 29 2e | 20 20 49 66 20 74 68 69 | = 168).|  If thi|
|00000400| 73 20 69 73 20 30 2c 20 | 6e 6f 6e 2d 70 65 72 6d |s is 0, |non-perm|
|00000410| 61 6e 65 6e 74 20 63 6f | 6d 70 6c 65 74 69 6f 6e |anent co|mpletion|
|00000420| 73 0a 77 69 6c 6c 20 6e | 6f 74 20 62 65 20 73 61 |s.will n|ot be sa|
|00000430| 76 65 64 20 75 6e 6c 65 | 73 73 20 74 68 65 73 65 |ved unle|ss these|
|00000440| 20 61 72 65 20 75 73 65 | 64 2e 20 20 44 65 66 61 | are use|d.  Defa|
|00000450| 75 6c 74 20 69 73 20 74 | 77 6f 20 77 65 65 6b 73 |ult is t|wo weeks|
|00000460| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 70 |.").(def|var comp|
|00000470| 6c 65 74 69 6f 6e 2d 6f | 6e 2d 73 65 70 61 72 61 |letion-o|n-separa|
|00000480| 74 6f 72 2d 63 68 61 72 | 61 63 74 65 72 20 6e 69 |tor-char|acter ni|
|00000490| 6c 20 22 5c 0a 2a 4e 6f | 6e 2d 6e 69 6c 20 6d 65 |l "\.*No|n-nil me|
|000004a0| 61 6e 73 20 73 65 70 61 | 72 61 74 6f 72 20 63 68 |ans sepa|rator ch|
|000004b0| 61 72 61 63 74 65 72 73 | 20 6d 61 72 6b 20 70 72 |aracters| mark pr|
|000004c0| 65 76 69 6f 75 73 20 77 | 6f 72 64 20 61 73 20 75 |evious w|ord as u|
|000004d0| 73 65 64 2e 0a 54 68 69 | 73 20 6d 65 61 6e 73 20 |sed..Thi|s means |
|000004e0| 74 68 65 20 77 6f 72 64 | 20 77 69 6c 6c 20 62 65 |the word| will be|
|000004f0| 20 73 61 76 65 64 20 61 | 73 20 61 20 63 6f 6d 70 | saved a|s a comp|
|00000500| 6c 65 74 69 6f 6e 2e 22 | 29 0a 28 64 65 66 76 61 |letion."|).(defva|
|00000510| 72 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 2d 66 69 |r comple|tions-fi|
|00000520| 6c 65 2d 76 65 72 73 69 | 6f 6e 73 2d 6b 65 70 74 |le-versi|ons-kept|
|00000530| 20 6b 65 70 74 2d 6e 65 | 77 2d 76 65 72 73 69 6f | kept-ne|w-versio|
|00000540| 6e 73 20 22 5c 0a 2a 4e | 75 6d 62 65 72 20 6f 66 |ns "\.*N|umber of|
|00000550| 20 76 65 72 73 69 6f 6e | 73 20 74 6f 20 6b 65 65 | version|s to kee|
|00000560| 70 20 66 6f 72 20 74 68 | 65 20 73 61 76 65 64 20 |p for th|e saved |
|00000570| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 20 66 69 6c 65 |completi|ons file|
|00000580| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 70 |.").(def|var comp|
|00000590| 6c 65 74 69 6f 6e 2d 70 | 72 6f 6d 70 74 2d 73 70 |letion-p|rompt-sp|
|000005a0| 65 65 64 2d 74 68 72 65 | 73 68 6f 6c 64 20 34 38 |eed-thre|shold 48|
|000005b0| 30 30 20 22 5c 0a 2a 4d | 69 6e 69 6d 75 6d 20 6f |00 "\.*M|inimum o|
|000005c0| 75 74 70 75 74 20 73 70 | 65 65 64 20 61 74 20 77 |utput sp|eed at w|
|000005d0| 68 69 63 68 20 74 6f 20 | 64 69 73 70 6c 61 79 20 |hich to |display |
|000005e0| 6e 65 78 74 20 70 6f 74 | 65 6e 74 69 61 6c 20 63 |next pot|ential c|
|000005f0| 6f 6d 70 6c 65 74 69 6f | 6e 2e 22 29 0a 28 64 65 |ompletio|n.").(de|
|00000600| 66 76 61 72 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |fvar com|pletion-|
|00000610| 63 64 61 62 62 72 65 76 | 2d 70 72 6f 6d 70 74 2d |cdabbrev|-prompt-|
|00000620| 66 6c 61 67 20 6e 69 6c | 20 22 5c 0a 2a 49 66 20 |flag nil| "\.*If |
|00000630| 6e 6f 6e 2d 6e 69 6c 2c | 20 74 68 65 20 6e 65 78 |non-nil,| the nex|
|00000640| 74 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 70 72 6f |t comple|tion pro|
|00000650| 6d 70 74 20 64 6f 65 73 | 20 61 20 63 64 61 62 62 |mpt does| a cdabb|
|00000660| 72 65 76 20 73 65 61 72 | 63 68 2e 0a 54 68 69 73 |rev sear|ch..This|
|00000670| 20 63 61 6e 20 62 65 20 | 74 69 6d 65 20 63 6f 6e | can be |time con|
|00000680| 73 75 6d 69 6e 67 2e 22 | 29 0a 28 64 65 66 76 61 |suming."|).(defva|
|00000690| 72 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 73 65 61 |r comple|tion-sea|
|000006a0| 72 63 68 2d 64 69 73 74 | 61 6e 63 65 20 31 35 30 |rch-dist|ance 150|
|000006b0| 30 30 20 22 5c 0a 2a 48 | 6f 77 20 66 61 72 20 74 |00 "\.*H|ow far t|
|000006c0| 6f 20 73 65 61 72 63 68 | 20 69 6e 20 74 68 65 20 |o search| in the |
|000006d0| 62 75 66 66 65 72 20 77 | 68 65 6e 20 6c 6f 6f 6b |buffer w|hen look|
|000006e0| 69 6e 67 20 66 6f 72 20 | 63 6f 6d 70 6c 65 74 69 |ing for |completi|
|000006f0| 6f 6e 73 2e 0a 49 6e 20 | 6e 75 6d 62 65 72 20 6f |ons..In |number o|
|00000700| 66 20 63 68 61 72 61 63 | 74 65 72 73 2e 20 20 49 |f charac|ters.  I|
|00000710| 66 20 6e 69 6c 2c 20 73 | 65 61 72 63 68 20 74 68 |f nil, s|earch th|
|00000720| 65 20 77 68 6f 6c 65 20 | 62 75 66 66 65 72 2e 22 |e whole |buffer."|
|00000730| 29 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 70 6c 65 |).(defva|r comple|
|00000740| 74 69 6f 6e 73 2d 6d 65 | 72 67 69 6e 67 2d 6d 6f |tions-me|rging-mo|
|00000750| 64 65 73 20 28 71 75 6f | 74 65 20 28 6c 69 73 70 |des (quo|te (lisp|
|00000760| 20 63 29 29 20 22 5c 0a | 2a 4c 69 73 74 20 6f 66 | c)) "\.|*List of|
|00000770| 20 6d 6f 64 65 73 20 7b | 60 63 27 20 6f 72 20 60 | modes {|`c' or `|
|00000780| 6c 69 73 70 27 7d 20 66 | 6f 72 20 61 75 74 6f 6d |lisp'} f|or autom|
|00000790| 61 74 69 63 20 63 6f 6d | 70 6c 65 74 69 6f 6e 73 |atic com|pletions|
|000007a0| 20 6d 65 72 67 69 6e 67 | 2e 0a 44 65 66 69 6e 69 | merging|..Defini|
|000007b0| 74 69 6f 6e 73 20 66 72 | 6f 6d 20 76 69 73 69 74 |tions fr|om visit|
|000007c0| 65 64 20 66 69 6c 65 73 | 20 77 68 69 63 68 20 68 |ed files| which h|
|000007d0| 61 76 65 20 74 68 65 73 | 65 20 6d 6f 64 65 73 0a |ave thes|e modes.|
|000007e0| 61 72 65 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |are auto|maticall|
|000007f0| 79 20 61 64 64 65 64 20 | 74 6f 20 74 68 65 20 63 |y added |to the c|
|00000800| 6f 6d 70 6c 65 74 69 6f | 6e 20 64 61 74 61 62 61 |ompletio|n databa|
|00000810| 73 65 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |se.").(d|efconst |
|00000820| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 6d 69 6e 2d 6c |completi|on-min-l|
|00000830| 65 6e 67 74 68 20 6e 69 | 6c 20 22 5c 0a 2a 54 68 |ength ni|l "\.*Th|
|00000840| 65 20 6d 69 6e 69 6d 75 | 6d 20 6c 65 6e 67 74 68 |e minimu|m length|
|00000850| 20 6f 66 20 61 20 73 74 | 6f 72 65 64 20 63 6f 6d | of a st|ored com|
|00000860| 70 6c 65 74 69 6f 6e 2e | 0a 44 4f 4e 27 54 20 43 |pletion.|.DON'T C|
|00000870| 48 41 4e 47 45 20 57 49 | 54 48 4f 55 54 20 52 45 |HANGE WI|THOUT RE|
|00000880| 43 4f 4d 50 49 4c 49 4e | 47 20 21 20 20 54 68 69 |COMPILIN|G !  Thi|
|00000890| 73 20 69 73 20 75 73 65 | 64 20 62 79 20 6d 61 63 |s is use|d by mac|
|000008a0| 72 6f 73 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ros.").(|defconst|
|000008b0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 6d 61 78 2d | complet|ion-max-|
|000008c0| 6c 65 6e 67 74 68 20 6e | 69 6c 20 22 5c 0a 2a 54 |length n|il "\.*T|
|000008d0| 68 65 20 6d 61 78 69 6d | 75 6d 20 6c 65 6e 67 74 |he maxim|um lengt|
|000008e0| 68 20 6f 66 20 61 20 73 | 74 6f 72 65 64 20 63 6f |h of a s|tored co|
|000008f0| 6d 70 6c 65 74 69 6f 6e | 2e 0a 44 4f 4e 27 54 20 |mpletion|..DON'T |
|00000900| 43 48 41 4e 47 45 20 57 | 49 54 48 4f 55 54 20 52 |CHANGE W|ITHOUT R|
|00000910| 45 43 4f 4d 50 49 4c 49 | 4e 47 20 21 20 20 54 68 |ECOMPILI|NG !  Th|
|00000920| 69 73 20 69 73 20 75 73 | 65 64 20 62 79 20 6d 61 |is is us|ed by ma|
|00000930| 63 72 6f 73 2e 22 29 0a | 28 64 65 66 63 6f 6e 73 |cros.").|(defcons|
|00000940| 74 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 70 72 65 |t comple|tion-pre|
|00000950| 66 69 78 2d 6d 69 6e 2d | 6c 65 6e 67 74 68 20 6e |fix-min-|length n|
|00000960| 69 6c 20 22 5c 0a 54 68 | 65 20 6d 69 6e 69 6d 75 |il "\.Th|e minimu|
|00000970| 6d 20 6c 65 6e 67 74 68 | 20 6f 66 20 61 20 63 6f |m length| of a co|
|00000980| 6d 70 6c 65 74 69 6f 6e | 20 73 65 61 72 63 68 20 |mpletion| search |
|00000990| 73 74 72 69 6e 67 2e 0a | 44 4f 4e 27 54 20 43 48 |string..|DON'T CH|
|000009a0| 41 4e 47 45 20 57 49 54 | 48 4f 55 54 20 52 45 43 |ANGE WIT|HOUT REC|
|000009b0| 4f 4d 50 49 4c 49 4e 47 | 20 21 20 20 54 68 69 73 |OMPILING| !  This|
|000009c0| 20 69 73 20 75 73 65 64 | 20 62 79 20 6d 61 63 72 | is used| by macr|
|000009d0| 6f 73 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |os.").(b|yte-code|
|000009e0| 20 22 c0 c1 c2 5c 22 88 | c0 c3 c4 5c 22 88 c3 20 | "...\".|...\".. |
|000009f0| 88 c5 c6 21 87 22 20 5b | 64 65 66 61 6c 69 61 73 |...!." [|defalias|
|00000a00| 20 65 76 61 6c 2d 77 68 | 65 6e 2d 63 6f 6d 70 69 | eval-wh|en-compi|
|00000a10| 6c 65 2d 6c 6f 61 64 2d | 65 76 61 6c 20 28 6d 61 |le-load-|eval (ma|
|00000a20| 63 72 6f 20 2e 20 23 5b | 28 26 72 65 73 74 20 62 |cro . #[|(&rest b|
|00000a30| 6f 64 79 29 20 22 c0 c1 | 5c 6e 5c 22 88 c3 5c 6e |ody) "..|\n\"..\n|
|00000a40| 42 87 22 20 5b 6d 61 70 | 63 61 72 20 65 76 61 6c |B." [map|car eval|
|00000a50| 20 62 6f 64 79 20 70 72 | 6f 67 6e 5d 20 33 5d 29 | body pr|ogn] 3])|
|00000a60| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 65 76 61 6c | complet|ion-eval|
|00000a70| 2d 77 68 65 6e 20 23 5b | 6e 69 6c 20 22 c0 11 c2 |-when #[|nil "...|
|00000a80| 13 c4 89 15 87 22 20 5b | 36 20 63 6f 6d 70 6c 65 |....." [|6 comple|
|00000a90| 74 69 6f 6e 2d 6d 69 6e | 2d 6c 65 6e 67 74 68 20 |tion-min|-length |
|00000aa0| 32 30 30 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 6d |200 comp|letion-m|
|00000ab0| 61 78 2d 6c 65 6e 67 74 | 68 20 33 20 63 6f 6d 70 |ax-lengt|h 3 comp|
|00000ac0| 6c 65 74 69 6f 6e 2d 70 | 72 65 66 69 78 2d 6d 69 |letion-p|refix-mi|
|00000ad0| 6e 2d 6c 65 6e 67 74 68 | 5d 20 32 5d 20 72 65 71 |n-length|] 2] req|
|00000ae0| 75 69 72 65 20 63 6c 5d | 20 33 29 0a 28 64 65 66 |uire cl]| 3).(def|
|00000af0| 76 61 72 20 63 6d 70 6c | 2d 69 6e 69 74 69 61 6c |var cmpl|-initial|
|00000b00| 69 7a 65 64 2d 70 20 6e | 69 6c 20 22 5c 0a 53 65 |ized-p n|il "\.Se|
|00000b10| 74 20 74 6f 20 74 20 77 | 68 65 6e 20 74 68 65 20 |t to t w|hen the |
|00000b20| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 73 79 73 74 65 |completi|on syste|
|00000b30| 6d 20 69 73 20 69 6e 69 | 74 69 61 6c 69 7a 65 64 |m is ini|tialized|
|00000b40| 2e 0a 49 6e 64 69 63 61 | 74 65 73 20 74 68 61 74 |..Indica|tes that|
|00000b50| 20 74 68 65 20 6f 6c 64 | 20 63 6f 6d 70 6c 65 74 | the old| complet|
|00000b60| 69 6f 6e 20 66 69 6c 65 | 20 68 61 73 20 62 65 65 |ion file| has bee|
|00000b70| 6e 20 72 65 61 64 20 69 | 6e 2e 22 29 0a 28 64 65 |n read i|n.").(de|
|00000b80| 66 76 61 72 20 63 6d 70 | 6c 2d 63 6f 6d 70 6c 65 |fvar cmp|l-comple|
|00000b90| 74 69 6f 6e 73 2d 61 63 | 63 65 70 74 65 64 2d 70 |tions-ac|cepted-p|
|00000ba0| 20 6e 69 6c 20 22 5c 0a | 53 65 74 20 74 6f 20 74 | nil "\.|Set to t|
|00000bb0| 20 61 73 20 73 6f 6f 6e | 20 61 73 20 74 68 65 20 | as soon| as the |
|00000bc0| 66 69 72 73 74 20 63 6f | 6d 70 6c 65 74 69 6f 6e |first co|mpletion|
|00000bd0| 20 68 61 73 20 62 65 65 | 6e 20 61 63 63 65 70 74 | has bee|n accept|
|00000be0| 65 64 2e 0a 55 73 65 64 | 20 74 6f 20 64 65 63 69 |ed..Used| to deci|
|00000bf0| 64 65 20 77 68 65 74 68 | 65 72 20 74 6f 20 73 61 |de wheth|er to sa|
|00000c00| 76 65 20 63 6f 6d 70 6c | 65 74 69 6f 6e 73 2e 22 |ve compl|etions."|
|00000c10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 69 6e |).(defal|ias 'min|
|00000c20| 69 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 2d 73 |ibuffer-|window-s|
|00000c30| 65 6c 65 63 74 65 64 2d | 70 20 23 5b 6e 69 6c 20 |elected-|p #[nil |
|00000c40| 22 c0 c1 20 21 87 22 20 | 5b 77 69 6e 64 6f 77 2d |".. !." |[window-|
|00000c50| 6d 69 6e 69 62 75 66 66 | 65 72 2d 70 20 73 65 6c |minibuff|er-p sel|
|00000c60| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 5d 20 32 20 |ected-wi|ndow] 2 |
|00000c70| 22 5c 0a 54 72 75 65 20 | 69 66 66 20 74 68 65 20 |"\.True |iff the |
|00000c80| 63 75 72 72 65 6e 74 20 | 77 69 6e 64 6f 77 20 69 |current |window i|
|00000c90| 73 20 74 68 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |s the mi|nibuffer|
|00000ca0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 28 |."]).(de|falias (|
|00000cb0| 71 75 6f 74 65 20 63 6d | 70 6c 2d 72 65 61 64 2d |quote cm|pl-read-|
|00000cc0| 74 69 6d 65 2d 65 76 61 | 6c 29 20 28 71 75 6f 74 |time-eva|l) (quot|
|00000cd0| 65 20 28 6d 61 63 72 6f | 20 6c 61 6d 62 64 61 20 |e (macro| lambda |
|00000ce0| 28 66 6f 72 6d 29 20 66 | 6f 72 6d 29 29 29 0a 28 |(form) f|orm))).(|
|00000cf0| 64 65 66 61 6c 69 61 73 | 20 27 63 6d 70 6c 2d 73 |defalias| 'cmpl-s|
|00000d00| 74 72 69 6e 67 2d 63 61 | 73 65 2d 74 79 70 65 20 |tring-ca|se-type |
|00000d10| 23 5b 28 73 74 72 69 6e | 67 29 20 22 c0 19 c2 c3 |#[(strin|g) "....|
|00000d20| 5c 66 5c 22 83 2b 00 c2 | c5 5c 66 5c 22 83 27 00 |\f\".+..|.\f\".'.|
|00000d30| 5c 66 47 c6 56 83 23 00 | c2 c5 5c 66 c6 23 84 23 |\fG.V.#.|..\f.#.#|
|00000d40| 00 c7 82 37 00 c8 82 37 | 00 c9 82 37 00 c2 c5 5c |...7...7|...7...\|
|00000d50| 66 5c 22 83 36 00 ca 82 | 37 00 cb 29 87 22 20 5b |f\".6...|7..)." [|
|00000d60| 6e 69 6c 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |nil case|-fold-se|
|00000d70| 61 72 63 68 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |arch str|ing-matc|
|00000d80| 68 20 22 5b 61 2d 7a 5d | 22 20 73 74 72 69 6e 67 |h "[a-z]|" string|
|00000d90| 20 22 5b 41 2d 5a 5d 22 | 20 31 20 3a 63 61 70 69 | "[A-Z]"| 1 :capi|
|00000da0| 74 61 6c 69 7a 65 64 20 | 3a 6d 69 78 65 64 20 3a |talized |:mixed :|
|00000db0| 64 6f 77 6e 20 3a 75 70 | 20 3a 6e 65 69 74 68 65 |down :up| :neithe|
|00000dc0| 72 5d 20 34 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |r] 4 "\.|Returns |
|00000dd0| 3a 63 61 70 69 74 61 6c | 69 7a 65 64 2c 20 3a 75 |:capital|ized, :u|
|00000de0| 70 2c 20 3a 64 6f 77 6e | 2c 20 3a 6d 69 78 65 64 |p, :down|, :mixed|
|00000df0| 2c 20 6f 72 20 3a 6e 65 | 69 74 68 65 72 2e 22 5d |, or :ne|ither."]|
|00000e00| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000e10| c2 5c 22 88 c0 c3 c4 5c | 22 88 c0 c5 c6 5c 22 88 |.\"....\|"....\".|
|00000e20| c0 c7 c8 5c 22 88 c7 20 | 16 09 c0 ca cb 5c 22 88 |...\".. |.....\".|
|00000e30| c0 cc cd 5c 22 88 c0 ce | cf 5c 22 88 ca 20 16 10 |...\"...|.\".. ..|
|00000e40| cc 20 16 11 ce 20 16 12 | c0 87 22 20 5b 64 65 66 |. ... ..|.." [def|
|00000e50| 61 6c 69 61 73 20 63 6d | 70 6c 2d 63 6f 65 72 63 |alias cm|pl-coerc|
|00000e60| 65 2d 73 74 72 69 6e 67 | 2d 63 61 73 65 20 23 5b |e-string|-case #[|
|00000e70| 28 73 74 72 69 6e 67 20 | 63 61 73 65 2d 74 79 70 |(string |case-typ|
|00000e80| 65 29 20 22 08 c1 3d 83 | 09 00 5c 6e 97 87 08 c3 |e) "..=.|..\n....|
|00000e90| 3d 83 12 00 5c 6e 96 87 | 08 c4 3d 83 27 00 5c 6e |=...\n..|..=.'.\n|
|00000ea0| 97 89 12 c5 c6 5c 6e c5 | 48 c7 5c 22 49 88 5c 6e |.....\n.|H.\"I.\n|
|00000eb0| 87 5c 6e 87 22 20 5b 63 | 61 73 65 2d 74 79 70 65 |.\n." [c|ase-type|
|00000ec0| 20 3a 64 6f 77 6e 20 73 | 74 72 69 6e 67 20 3a 75 | :down s|tring :u|
|00000ed0| 70 20 3a 63 61 70 69 74 | 61 6c 69 7a 65 64 20 30 |p :capit|alized 0|
|00000ee0| 20 6c 6f 67 61 6e 64 20 | 32 32 33 5d 20 36 5d 20 | logand |223] 6] |
|00000ef0| 63 6d 70 6c 2d 6d 65 72 | 67 65 2d 73 74 72 69 6e |cmpl-mer|ge-strin|
|00000f00| 67 2d 63 61 73 65 73 20 | 23 5b 28 73 74 72 69 6e |g-cases |#[(strin|
|00000f10| 67 2d 74 6f 2d 63 6f 65 | 72 63 65 20 67 69 76 65 |g-to-coe|rce give|
|00000f20| 6e 2d 73 74 72 69 6e 67 | 29 20 22 c0 09 21 89 1a |n-string|) "..!..|
|00000f30| c3 3e 83 13 00 c4 09 c0 | 0d 21 5c 22 82 14 00 09 |.>......|.!\"....|
|00000f40| 29 87 22 20 5b 63 6d 70 | 6c 2d 73 74 72 69 6e 67 |)." [cmp|l-string|
|00000f50| 2d 63 61 73 65 2d 74 79 | 70 65 20 73 74 72 69 6e |-case-ty|pe strin|
|00000f60| 67 2d 74 6f 2d 63 6f 65 | 72 63 65 20 73 74 72 69 |g-to-coe|rce stri|
|00000f70| 6e 67 2d 63 61 73 65 2d | 74 79 70 65 20 28 3a 64 |ng-case-|type (:d|
|00000f80| 6f 77 6e 20 3a 75 70 20 | 3a 63 61 70 69 74 61 6c |own :up |:capital|
|00000f90| 69 7a 65 64 29 20 63 6d | 70 6c 2d 63 6f 65 72 63 |ized) cm|pl-coerc|
|00000fa0| 65 2d 73 74 72 69 6e 67 | 2d 63 61 73 65 20 67 69 |e-string|-case gi|
|00000fb0| 76 65 6e 2d 73 74 72 69 | 6e 67 5d 20 35 5d 20 63 |ven-stri|ng] 5] c|
|00000fc0| 6d 70 6c 2d 68 6f 75 72 | 73 2d 73 69 6e 63 65 2d |mpl-hour|s-since-|
|00000fd0| 6f 72 69 67 69 6e 20 23 | 5b 6e 69 6c 20 22 c0 20 |origin #|[nil ". |
|00000fe0| 19 c2 09 40 c3 a5 c4 c5 | c6 5c 22 5f c7 09 38 c8 |...@....|.\"_..8.|
|00000ff0| a5 5c 5c 21 29 87 22 20 | 5b 63 75 72 72 65 6e 74 |.\\!)." |[current|
|00001000| 2d 74 69 6d 65 20 74 69 | 6d 65 20 74 72 75 6e 63 |-time ti|me trunc|
|00001010| 61 74 65 20 33 36 30 30 | 2e 30 20 6c 73 68 20 31 |ate 3600|.0 lsh 1|
|00001020| 20 31 36 20 32 20 33 36 | 30 30 2e 30 5d 20 35 5d | 16 2 36|00.0] 5]|
|00001030| 20 63 6d 70 6c 2d 6d 61 | 6b 65 2d 73 74 61 6e 64 | cmpl-ma|ke-stand|
|00001040| 61 72 64 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 73 |ard-comp|letion-s|
|00001050| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 23 5b 6e 69 |yntax-ta|ble #[ni|
|00001060| 6c 20 22 c0 c1 c2 5c 22 | 1b c4 c2 1d 1e 06 0d 0e |l "...\"|........|
|00001070| 06 57 83 28 00 c7 0d c8 | 5c 5c c9 0b 23 88 c7 0d |.W.(....|\\..#...|
|00001080| ca 5c 5c c9 0b 23 88 0d | 54 89 15 82 0b 00 2a cb |.\\..#..|T.....*.|
|00001090| c2 1d 1e 5c 66 0d 0e 5c | 66 57 83 44 00 c7 0d cd |...\f..\|fW.D....|
|000010a0| 5c 5c c9 0b 23 88 0d 54 | 89 15 82 2f 00 2a ce cf |\\..#..T|.../.*..|
|000010b0| 1e 10 89 1e 11 d2 1e 13 | 89 1e 14 83 6a 00 0e 14 |........|....j...|
|000010c0| 40 16 13 c7 0e 13 c9 0b | 23 88 0e 14 41 89 16 14 |@.......|#...A...|
|000010d0| 84 55 00 2a 0e 10 d2 1e | 13 89 1e 15 83 8b 00 0e |.U.*....|........|
|000010e0| 15 40 16 13 c7 0e 13 d6 | 0b 23 88 0e 15 41 89 16 |.@......|.#...A..|
|000010f0| 15 84 76 00 2c 0b 29 87 | 22 20 5b 6d 61 6b 65 2d |..v.,.).|" [make-|
|00001100| 76 65 63 74 6f 72 20 32 | 35 36 20 30 20 74 61 62 |vector 2|56 0 tab|
|00001110| 6c 65 20 32 36 20 69 20 | 2d 2d 64 6f 74 69 6d 65 |le 26 i |--dotime|
|00001120| 73 2d 74 65 6d 70 2d 2d | 33 33 38 30 30 20 6d 6f |s-temp--|33800 mo|
|00001130| 64 69 66 79 2d 73 79 6e | 74 61 78 2d 65 6e 74 72 |dify-syn|tax-entr|
|00001140| 79 20 39 37 20 22 5f 22 | 20 36 35 20 31 30 20 2d |y 97 "_"| 65 10 -|
|00001150| 2d 64 6f 74 69 6d 65 73 | 2d 74 65 6d 70 2d 2d 33 |-dotimes|-temp--3|
|00001160| 33 38 30 31 20 34 38 20 | 28 36 34 20 34 37 20 39 |3801 48 |(64 47 9|
|00001170| 32 20 34 32 20 34 33 20 | 31 32 36 20 33 36 20 36 |2 42 43 |126 36 6|
|00001180| 30 20 36 32 20 33 37 29 | 20 28 39 35 20 34 35 20 |0 62 37)| (95 45 |
|00001190| 35 38 20 34 36 29 20 73 | 79 6d 62 6f 6c 2d 63 68 |58 46) s|ymbol-ch|
|000011a0| 61 72 73 2d 69 67 6e 6f | 72 65 20 73 79 6d 62 6f |ars-igno|re symbo|
|000011b0| 6c 2d 63 68 61 72 73 20 | 6e 69 6c 20 63 68 61 72 |l-chars |nil char|
|000011c0| 20 2d 2d 64 6f 6c 69 73 | 74 2d 74 65 6d 70 2d 2d | --dolis|t-temp--|
|000011d0| 33 33 38 30 32 20 2d 2d | 64 6f 6c 69 73 74 2d 74 |33802 --|dolist-t|
|000011e0| 65 6d 70 2d 2d 33 33 38 | 30 33 20 22 77 22 5d 20 |emp--338|03 "w"] |
|000011f0| 36 5d 20 63 6d 70 6c 2d | 73 74 61 6e 64 61 72 64 |6] cmpl-|standard|
|00001200| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 63 6d |-syntax-|table cm|
|00001210| 70 6c 2d 6d 61 6b 65 2d | 6c 69 73 70 2d 63 6f 6d |pl-make-|lisp-com|
|00001220| 70 6c 65 74 69 6f 6e 2d | 73 79 6e 74 61 78 2d 74 |pletion-|syntax-t|
|00001230| 61 62 6c 65 20 23 5b 6e | 69 6c 20 22 c0 09 21 c2 |able #[n|il "..!.|
|00001240| 1b 1c 0b c5 1e 06 89 1e | 07 83 25 00 0e 07 40 16 |........|..%...@.|
|00001250| 06 c8 0e 06 c9 5c 66 23 | 88 0e 07 41 89 16 07 84 |.....\f#|...A....|
|00001260| 10 00 2a 5c 66 2a 87 22 | 20 5b 63 6f 70 79 2d 73 |..*\f*."| [copy-s|
|00001270| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 63 6d 70 6c |yntax-ta|ble cmpl|
|00001280| 2d 73 74 61 6e 64 61 72 | 64 2d 73 79 6e 74 61 78 |-standar|d-syntax|
|00001290| 2d 74 61 62 6c 65 20 28 | 33 33 20 33 38 20 36 33 |-table (|33 38 63|
|000012a0| 20 36 31 20 39 34 29 20 | 73 79 6d 62 6f 6c 2d 63 | 61 94) |symbol-c|
|000012b0| 68 61 72 73 20 74 61 62 | 6c 65 20 6e 69 6c 20 63 |hars tab|le nil c|
|000012c0| 68 61 72 20 2d 2d 64 6f | 6c 69 73 74 2d 74 65 6d |har --do|list-tem|
|000012d0| 70 2d 2d 33 33 38 30 34 | 20 6d 6f 64 69 66 79 2d |p--33804| modify-|
|000012e0| 73 79 6e 74 61 78 2d 65 | 6e 74 72 79 20 22 5f 22 |syntax-e|ntry "_"|
|000012f0| 5d 20 35 5d 20 63 6d 70 | 6c 2d 6d 61 6b 65 2d 63 |] 5] cmp|l-make-c|
|00001300| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 73 79 6e 74 |-complet|ion-synt|
|00001310| 61 78 2d 74 61 62 6c 65 | 20 23 5b 6e 69 6c 20 22 |ax-table| #[nil "|
|00001320| c0 09 21 c2 1b 1c 0b c5 | 1e 06 89 1e 07 83 25 00 |..!.....|......%.|
|00001330| 0e 07 40 16 06 c8 0e 06 | c9 5c 66 23 88 0e 07 41 |..@.....|.\f#...A|
|00001340| 89 16 07 84 10 00 2a 5c | 66 2a 87 22 20 5b 63 6f |......*\|f*." [co|
|00001350| 70 79 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |py-synta|x-table |
|00001360| 63 6d 70 6c 2d 73 74 61 | 6e 64 61 72 64 2d 73 79 |cmpl-sta|ndard-sy|
|00001370| 6e 74 61 78 2d 74 61 62 | 6c 65 20 28 34 33 20 34 |ntax-tab|le (43 4|
|00001380| 32 20 34 37 20 35 38 20 | 33 37 29 20 73 65 70 61 |2 47 58 |37) sepa|
|00001390| 72 61 74 6f 72 2d 63 68 | 61 72 73 20 74 61 62 6c |rator-ch|ars tabl|
|000013a0| 65 20 6e 69 6c 20 63 68 | 61 72 20 2d 2d 64 6f 6c |e nil ch|ar --dol|
|000013b0| 69 73 74 2d 74 65 6d 70 | 2d 2d 33 33 38 30 35 20 |ist-temp|--33805 |
|000013c0| 6d 6f 64 69 66 79 2d 73 | 79 6e 74 61 78 2d 65 6e |modify-s|yntax-en|
|000013d0| 74 72 79 20 22 20 22 5d | 20 35 5d 20 63 6d 70 6c |try " "]| 5] cmpl|
|000013e0| 2d 6d 61 6b 65 2d 66 6f | 72 74 72 61 6e 2d 63 6f |-make-fo|rtran-co|
|000013f0| 6d 70 6c 65 74 69 6f 6e | 2d 73 79 6e 74 61 78 2d |mpletion|-syntax-|
|00001400| 74 61 62 6c 65 20 23 5b | 6e 69 6c 20 22 c0 09 21 |table #[|nil "..!|
|00001410| c2 1b 1c 0b c5 1e 06 89 | 1e 07 83 25 00 0e 07 40 |........|...%...@|
|00001420| 16 06 c8 0e 06 c9 5c 66 | 23 88 0e 07 41 89 16 07 |......\f|#...A...|
|00001430| 84 10 00 2a 5c 66 2a 87 | 22 20 5b 63 6f 70 79 2d |...*\f*.|" [copy-|
|00001440| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 63 6d 70 |syntax-t|able cmp|
|00001450| 6c 2d 73 74 61 6e 64 61 | 72 64 2d 73 79 6e 74 61 |l-standa|rd-synta|
|00001460| 78 2d 74 61 62 6c 65 20 | 28 34 33 20 34 35 20 34 |x-table |(43 45 4|
|00001470| 32 20 34 37 20 35 38 29 | 20 73 65 70 61 72 61 74 |2 47 58)| separat|
|00001480| 6f 72 2d 63 68 61 72 73 | 20 74 61 62 6c 65 20 6e |or-chars| table n|
|00001490| 69 6c 20 63 68 61 72 20 | 2d 2d 64 6f 6c 69 73 74 |il char |--dolist|
|000014a0| 2d 74 65 6d 70 2d 2d 33 | 33 38 30 36 20 6d 6f 64 |-temp--3|3806 mod|
|000014b0| 69 66 79 2d 73 79 6e 74 | 61 78 2d 65 6e 74 72 79 |ify-synt|ax-entry|
|000014c0| 20 22 20 22 5d 20 35 5d | 20 63 6d 70 6c 2d 6c 69 | " "] 5]| cmpl-li|
|000014d0| 73 70 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |sp-synta|x-table |
|000014e0| 63 6d 70 6c 2d 63 2d 73 | 79 6e 74 61 78 2d 74 61 |cmpl-c-s|yntax-ta|
|000014f0| 62 6c 65 20 63 6d 70 6c | 2d 66 6f 72 74 72 61 6e |ble cmpl|-fortran|
|00001500| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 5d 20 33 |-syntax-|table] 3|
|00001510| 29 0a 28 64 65 66 76 61 | 72 20 63 6d 70 6c 2d 73 |).(defva|r cmpl-s|
|00001520| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 63 6d 70 6c |yntax-ta|ble cmpl|
|00001530| 2d 73 74 61 6e 64 61 72 | 64 2d 73 79 6e 74 61 78 |-standar|d-syntax|
|00001540| 2d 74 61 62 6c 65 20 22 | 5c 0a 54 68 69 73 20 76 |-table "|\.This v|
|00001550| 61 72 69 61 62 6c 65 20 | 68 6f 6c 64 73 20 74 68 |ariable |holds th|
|00001560| 65 20 63 75 72 72 65 6e | 74 20 63 6f 6d 70 6c 65 |e curren|t comple|
|00001570| 74 69 6f 6e 20 73 79 6e | 74 61 78 20 74 61 62 6c |tion syn|tax tabl|
|00001580| 65 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e.").(by|te-code |
|00001590| 22 c0 c1 21 88 c2 c3 c4 | 5c 22 88 c2 c5 c6 5c 22 |"..!....|\"....\"|
|000015a0| 88 c2 c7 c8 5c 22 87 22 | 20 5b 6d 61 6b 65 2d 76 |....\"."| [make-v|
|000015b0| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|000015c0| 6f 63 61 6c 20 63 6d 70 | 6c 2d 73 79 6e 74 61 78 |ocal cmp|l-syntax|
|000015d0| 2d 74 61 62 6c 65 20 61 | 64 64 2d 68 6f 6f 6b 20 |-table a|dd-hook |
|000015e0| 6c 69 73 70 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 28 |lisp-mod|e-hook (|
|000015f0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 73 65 74 71 |lambda n|il (setq|
|00001600| 20 63 6d 70 6c 2d 73 79 | 6e 74 61 78 2d 74 61 62 | cmpl-sy|ntax-tab|
|00001610| 6c 65 20 63 6d 70 6c 2d | 6c 69 73 70 2d 73 79 6e |le cmpl-|lisp-syn|
|00001620| 74 61 78 2d 74 61 62 6c | 65 29 29 20 63 2d 6d 6f |tax-tabl|e)) c-mo|
|00001630| 64 65 2d 68 6f 6f 6b 20 | 28 6c 61 6d 62 64 61 20 |de-hook |(lambda |
|00001640| 6e 69 6c 20 28 73 65 74 | 71 20 63 6d 70 6c 2d 73 |nil (set|q cmpl-s|
|00001650| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 63 6d 70 6c |yntax-ta|ble cmpl|
|00001660| 2d 63 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 29 |-c-synta|x-table)|
|00001670| 29 20 66 6f 72 74 72 61 | 6e 2d 6d 6f 64 65 2d 68 |) fortra|n-mode-h|
|00001680| 6f 6f 6b 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |ook (lam|bda nil |
|00001690| 28 73 65 74 71 20 63 6d | 70 6c 2d 73 79 6e 74 61 |(setq cm|pl-synta|
|000016a0| 78 2d 74 61 62 6c 65 20 | 63 6d 70 6c 2d 66 6f 72 |x-table |cmpl-for|
|000016b0| 74 72 61 6e 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |tran-syn|tax-tabl|
|000016c0| 65 29 20 28 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 73 |e) (comp|letion-s|
|000016d0| 65 74 75 70 2d 66 6f 72 | 74 72 61 6e 2d 6d 6f 64 |etup-for|tran-mod|
|000016e0| 65 29 29 5d 20 33 29 0a | 28 64 65 66 76 61 72 20 |e))] 3).|(defvar |
|000016f0| 63 6d 70 6c 2d 73 79 6d | 62 6f 6c 2d 73 74 61 72 |cmpl-sym|bol-star|
|00001700| 74 20 6e 69 6c 20 22 5c | 0a 48 6f 6c 64 73 20 66 |t nil "\|.Holds f|
|00001710| 69 72 73 74 20 63 68 61 | 72 61 63 74 65 72 20 6f |irst cha|racter o|
|00001720| 66 20 73 79 6d 62 6f 6c | 2c 20 61 66 74 65 72 20 |f symbol|, after |
|00001730| 61 6e 79 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 73 |any comp|letion s|
|00001740| 79 6d 62 6f 6c 20 66 75 | 6e 63 74 69 6f 6e 2e 22 |ymbol fu|nction."|
|00001750| 29 0a 28 64 65 66 76 61 | 72 20 63 6d 70 6c 2d 73 |).(defva|r cmpl-s|
|00001760| 79 6d 62 6f 6c 2d 65 6e | 64 20 6e 69 6c 20 22 5c |ymbol-en|d nil "\|
|00001770| 0a 48 6f 6c 64 73 20 6c | 61 73 74 20 63 68 61 72 |.Holds l|ast char|
|00001780| 61 63 74 65 72 20 6f 66 | 20 73 79 6d 62 6f 6c 2c |acter of| symbol,|
|00001790| 20 61 66 74 65 72 20 61 | 6e 79 20 63 6f 6d 70 6c | after a|ny compl|
|000017a0| 65 74 69 6f 6e 20 73 79 | 6d 62 6f 6c 20 66 75 6e |etion sy|mbol fun|
|000017b0| 63 74 69 6f 6e 2e 22 29 | 0a 28 62 79 74 65 2d 63 |ction.")|.(byte-c|
|000017c0| 6f 64 65 20 22 c0 c1 21 | 84 08 00 c2 11 c0 c3 21 |ode "..!|.......!|
|000017d0| 84 10 00 c2 13 c2 87 22 | 20 5b 62 6f 75 6e 64 70 |......."| [boundp|
|000017e0| 20 63 6d 70 6c 2d 73 61 | 76 65 64 2d 73 79 6e 74 | cmpl-sa|ved-synt|
|000017f0| 61 78 20 6e 69 6c 20 63 | 6d 70 6c 2d 73 61 76 65 |ax nil c|mpl-save|
|00001800| 64 2d 70 6f 69 6e 74 5d | 20 32 29 0a 28 64 65 66 |d-point]| 2).(def|
|00001810| 61 6c 69 61 73 20 27 73 | 79 6d 62 6f 6c 2d 75 6e |alias 's|ymbol-un|
|00001820| 64 65 72 2d 70 6f 69 6e | 74 20 23 5b 6e 69 6c 20 |der-poin|t #[nil |
|00001830| 22 c0 20 11 c2 0b 21 88 | 67 7a c4 3e 83 6a 00 60 |". ...!.|gz.>.j.`|
|00001840| 15 c6 0d 54 c7 5c 22 16 | 08 c6 0d c9 5c 22 16 5c |...T.\".|....\".\|
|00001850| 6e 0e 08 66 7a cb 55 83 | 33 00 0e 08 62 88 c9 76 |n..fz.U.|3...b..v|
|00001860| 88 60 16 08 0d 62 88 0e | 5c 6e 53 66 7a cb 55 83 |.`...b..|\nSfz.U.|
|00001870| 4a 00 0e 5c 6e 62 88 c7 | 76 88 60 16 5c 6e 0d 62 |J..\nb..|v.`.\n.b|
|00001880| 88 c2 09 21 88 0e 5c 66 | 0e 5c 6e 0e 08 5a 58 85 |...!..\f|.\n..ZX.|
|00001890| 69 00 0e 5c 6e 0e 08 5a | 0e 0d 58 85 6f 00 0e 08 |i..\n..Z|..X.o...|
|000018a0| 0e 5c 6e 7b 87 c2 09 21 | 88 ce 87 22 20 5b 73 79 |.\n{...!|..." [sy|
|000018b0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 63 6d 70 6c 2d |ntax-tab|le cmpl-|
|000018c0| 73 61 76 65 64 2d 73 79 | 6e 74 61 78 20 73 65 74 |saved-sy|ntax set|
|000018d0| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 63 6d |-syntax-|table cm|
|000018e0| 70 6c 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |pl-synta|x-table |
|000018f0| 28 31 31 39 20 39 35 29 | 20 63 6d 70 6c 2d 73 61 |(119 95)| cmpl-sa|
|00001900| 76 65 64 2d 70 6f 69 6e | 74 20 73 63 61 6e 2d 73 |ved-poin|t scan-s|
|00001910| 65 78 70 73 20 2d 31 20 | 63 6d 70 6c 2d 73 79 6d |exps -1 |cmpl-sym|
|00001920| 62 6f 6c 2d 73 74 61 72 | 74 20 31 20 63 6d 70 6c |bol-star|t 1 cmpl|
|00001930| 2d 73 79 6d 62 6f 6c 2d | 65 6e 64 20 31 31 39 20 |-symbol-|end 119 |
|00001940| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 6d 69 6e 2d 6c |completi|on-min-l|
|00001950| 65 6e 67 74 68 20 63 6f | 6d 70 6c 65 74 69 6f 6e |ength co|mpletion|
|00001960| 2d 6d 61 78 2d 6c 65 6e | 67 74 68 20 6e 69 6c 5d |-max-len|gth nil]|
|00001970| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 74 68 | 3 "\.Re|turns th|
|00001980| 65 20 73 79 6d 62 6f 6c | 20 74 68 61 74 20 74 68 |e symbol| that th|
|00001990| 65 20 70 6f 69 6e 74 20 | 69 73 20 63 75 72 72 65 |e point |is curre|
|000019a0| 6e 74 6c 79 20 6f 6e 2e | 0a 42 75 74 20 6f 6e 6c |ntly on.|.But onl|
|000019b0| 79 20 69 66 20 69 74 20 | 69 73 20 6c 6f 6e 67 65 |y if it |is longe|
|000019c0| 72 20 74 68 61 6e 20 60 | 63 6f 6d 70 6c 65 74 69 |r than `|completi|
|000019d0| 6f 6e 2d 6d 69 6e 2d 6c | 65 6e 67 74 68 27 2e 22 |on-min-l|ength'."|
|000019e0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 79 |]).(defa|lias 'sy|
|000019f0| 6d 62 6f 6c 2d 62 65 66 | 6f 72 65 2d 70 6f 69 6e |mbol-bef|ore-poin|
|00001a00| 74 20 23 5b 6e 69 6c 20 | 22 c0 20 11 c2 0b 21 88 |t #[nil |". ...!.|
|00001a10| 68 7a 89 14 c5 55 83 46 | 00 60 16 06 c7 0e 06 54 |hz...U.F|.`.....T|
|00001a20| c8 5c 22 89 16 09 66 7a | ca 55 83 31 00 0e 09 62 |.\"...fz|.U.1...b|
|00001a30| 88 cb 76 88 60 16 09 0e | 06 62 88 c2 09 21 88 0e |..v.`...|.b...!..|
|00001a40| 06 0e 09 0e 5c 66 5c 5c | 59 85 99 00 0e 09 0e 06 |....\f\\|Y.......|
|00001a50| 7b 87 5c 66 ca 55 83 94 | 00 60 16 0d c7 0e 0d 54 |{.\f.U..|.`.....T|
|00001a60| c8 5c 22 16 09 c8 76 88 | 60 16 06 0e 09 66 7a ca |.\"...v.|`....fz.|
|00001a70| 55 83 70 00 0e 09 62 88 | cb 76 88 60 16 09 0e 0d |U.p...b.|.v.`....|
|00001a80| 62 88 c2 09 21 88 0e 5c | 66 0e 06 0e 09 5a 58 85 |b...!..\|f....ZX.|
|00001a90| 93 00 0e 06 0e 09 5a 0e | 0e 58 85 99 00 0e 09 0e |......Z.|.X......|
|00001aa0| 06 7b 87 c2 09 21 88 cf | 87 22 20 5b 73 79 6e 74 |.{...!..|." [synt|
|00001ab0| 61 78 2d 74 61 62 6c 65 | 20 63 6d 70 6c 2d 73 61 |ax-table| cmpl-sa|
|00001ac0| 76 65 64 2d 73 79 6e 74 | 61 78 20 73 65 74 2d 73 |ved-synt|ax set-s|
|00001ad0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 63 6d 70 6c |yntax-ta|ble cmpl|
|00001ae0| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 63 6d |-syntax-|table cm|
|00001af0| 70 6c 2d 70 72 65 63 65 | 64 69 6e 67 2d 73 79 6e |pl-prece|ding-syn|
|00001b00| 74 61 78 20 39 35 20 63 | 6d 70 6c 2d 73 79 6d 62 |tax 95 c|mpl-symb|
|00001b10| 6f 6c 2d 65 6e 64 20 73 | 63 61 6e 2d 73 65 78 70 |ol-end s|can-sexp|
|00001b20| 73 20 2d 31 20 63 6d 70 | 6c 2d 73 79 6d 62 6f 6c |s -1 cmp|l-symbol|
|00001b30| 2d 73 74 61 72 74 20 31 | 31 39 20 31 20 63 6f 6d |-start 1|19 1 com|
|00001b40| 70 6c 65 74 69 6f 6e 2d | 6d 69 6e 2d 6c 65 6e 67 |pletion-|min-leng|
|00001b50| 74 68 20 63 6d 70 6c 2d | 73 61 76 65 64 2d 70 6f |th cmpl-|saved-po|
|00001b60| 69 6e 74 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 6d |int comp|letion-m|
|00001b70| 61 78 2d 6c 65 6e 67 74 | 68 20 6e 69 6c 5d 20 34 |ax-lengt|h nil] 4|
|00001b80| 20 22 5c 0a 52 65 74 75 | 72 6e 73 20 61 20 73 74 | "\.Retu|rns a st|
|00001b90| 72 69 6e 67 20 6f 66 20 | 74 68 65 20 73 79 6d 62 |ring of |the symb|
|00001ba0| 6f 6c 20 69 6d 6d 65 64 | 69 61 74 65 6c 79 20 62 |ol immed|iately b|
|00001bb0| 65 66 6f 72 65 20 70 6f | 69 6e 74 2e 0a 52 65 74 |efore po|int..Ret|
|00001bc0| 75 72 6e 73 20 6e 69 6c | 20 69 66 20 74 68 65 72 |urns nil| if ther|
|00001bd0| 65 20 69 73 6e 27 74 20 | 6f 6e 65 20 6c 6f 6e 67 |e isn't |one long|
|00001be0| 65 72 20 74 68 61 6e 20 | 60 63 6f 6d 70 6c 65 74 |er than |`complet|
|00001bf0| 69 6f 6e 2d 6d 69 6e 2d | 6c 65 6e 67 74 68 27 2e |ion-min-|length'.|
|00001c00| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|00001c10| c0 c1 c2 5c 22 88 c0 c3 | c4 5c 22 88 c0 c5 c6 5c |...\"...|.\"....\|
|00001c20| 22 88 c7 16 08 c9 16 5c | 6e cb 16 5c 66 cd 16 0e |"......\|n..\f...|
|00001c30| cf 16 10 d1 16 12 d3 16 | 14 d5 16 16 d7 d8 21 84 |........|......!.|
|00001c40| 31 00 0e 08 16 18 d7 d9 | 21 84 3a 00 da 16 19 d7 |1.......|!.:.....|
|00001c50| db 21 84 43 00 c7 16 1b | d7 dc 21 84 4c 00 da 16 |.!.C....|..!.L...|
|00001c60| 1c d7 dd 21 84 55 00 da | 16 1d d7 de 21 84 5e 00 |...!.U..|....!.^.|
|00001c70| df 16 1e d7 e0 21 84 67 | 00 c7 16 20 da 87 22 20 |.....!.g|... .." |
|00001c80| 5b 64 65 66 61 6c 69 61 | 73 20 73 79 6d 62 6f 6c |[defalia|s symbol|
|00001c90| 2d 75 6e 64 65 72 2d 6f | 72 2d 62 65 66 6f 72 65 |-under-o|r-before|
|00001ca0| 2d 70 6f 69 6e 74 20 23 | 5b 6e 69 6c 20 22 c0 20 |-point #|[nil ". |
|00001cb0| 11 c2 0b 21 88 67 7a c4 | 3e 83 15 00 c2 09 21 88 |...!.gz.|>.....!.|
|00001cc0| c5 20 87 c2 09 21 88 c6 | 20 87 22 20 5b 73 79 6e |. ...!..| ." [syn|
|00001cd0| 74 61 78 2d 74 61 62 6c | 65 20 63 6d 70 6c 2d 73 |tax-tabl|e cmpl-s|
|00001ce0| 61 76 65 64 2d 73 79 6e | 74 61 78 20 73 65 74 2d |aved-syn|tax set-|
|00001cf0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 63 6d 70 |syntax-t|able cmp|
|00001d00| 6c 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 28 |l-syntax|-table (|
|00001d10| 31 31 39 20 39 35 29 20 | 73 79 6d 62 6f 6c 2d 75 |119 95) |symbol-u|
|00001d20| 6e 64 65 72 2d 70 6f 69 | 6e 74 20 73 79 6d 62 6f |nder-poi|nt symbo|
|00001d30| 6c 2d 62 65 66 6f 72 65 | 2d 70 6f 69 6e 74 5d 20 |l-before|-point] |
|00001d40| 32 5d 20 73 79 6d 62 6f | 6c 2d 62 65 66 6f 72 65 |2] symbo|l-before|
|00001d50| 2d 70 6f 69 6e 74 2d 66 | 6f 72 2d 63 6f 6d 70 6c |-point-f|or-compl|
|00001d60| 65 74 65 20 23 5b 6e 69 | 6c 20 22 c0 20 11 c2 0b |ete #[ni|l ". ...|
|00001d70| 21 88 68 7a 89 14 c5 3e | 83 51 00 60 16 06 c7 0e |!.hz...>|.Q.`....|
|00001d80| 06 54 c8 5c 22 89 16 09 | 66 7a ca 55 83 31 00 0e |.T.\"...|fz.U.1..|
|00001d90| 09 62 88 cb 76 88 60 16 | 09 0e 06 62 88 c2 09 21 |.b..v.`.|...b...!|
|00001da0| 88 0e 5c 66 0e 06 0e 09 | 5a 58 85 50 00 0e 06 0e |..\f....|ZX.P....|
|00001db0| 09 5a 0e 0d 58 85 56 00 | 0e 09 0e 06 7b 87 c2 09 |.Z..X.V.|....{...|
|00001dc0| 21 88 ce 87 22 20 5b 73 | 79 6e 74 61 78 2d 74 61 |!..." [s|yntax-ta|
|00001dd0| 62 6c 65 20 63 6d 70 6c | 2d 73 61 76 65 64 2d 73 |ble cmpl|-saved-s|
|00001de0| 79 6e 74 61 78 20 73 65 | 74 2d 73 79 6e 74 61 78 |yntax se|t-syntax|
|00001df0| 2d 74 61 62 6c 65 20 63 | 6d 70 6c 2d 73 79 6e 74 |-table c|mpl-synt|
|00001e00| 61 78 2d 74 61 62 6c 65 | 20 63 6d 70 6c 2d 70 72 |ax-table| cmpl-pr|
|00001e10| 65 63 65 64 69 6e 67 2d | 73 79 6e 74 61 78 20 28 |eceding-|syntax (|
|00001e20| 39 35 20 31 31 39 29 20 | 63 6d 70 6c 2d 73 79 6d |95 119) |cmpl-sym|
|00001e30| 62 6f 6c 2d 65 6e 64 20 | 73 63 61 6e 2d 73 65 78 |bol-end |scan-sex|
|00001e40| 70 73 20 2d 31 20 63 6d | 70 6c 2d 73 79 6d 62 6f |ps -1 cm|pl-symbo|
|00001e50| 6c 2d 73 74 61 72 74 20 | 31 31 39 20 31 20 63 6f |l-start |119 1 co|
|00001e60| 6d 70 6c 65 74 69 6f 6e | 2d 70 72 65 66 69 78 2d |mpletion|-prefix-|
|00001e70| 6d 69 6e 2d 6c 65 6e 67 | 74 68 20 63 6f 6d 70 6c |min-leng|th compl|
|00001e80| 65 74 69 6f 6e 2d 6d 61 | 78 2d 6c 65 6e 67 74 68 |etion-ma|x-length|
|00001e90| 20 6e 69 6c 5d 20 34 5d | 20 63 6d 70 6c 2d 73 74 | nil] 4]| cmpl-st|
|00001ea0| 61 74 69 73 74 69 63 73 | 2d 62 6c 6f 63 6b 20 28 |atistics|-block (|
|00001eb0| 6d 61 63 72 6f 20 6c 61 | 6d 62 64 61 20 28 26 72 |macro la|mbda (&r|
|00001ec0| 65 73 74 20 62 6f 64 79 | 29 29 20 30 20 63 6d 70 |est body|)) 0 cmp|
|00001ed0| 6c 2d 73 6f 75 72 63 65 | 2d 75 6e 6b 6e 6f 77 6e |l-source|-unknown|
|00001ee0| 20 31 20 63 6d 70 6c 2d | 73 6f 75 72 63 65 2d 69 | 1 cmpl-|source-i|
|00001ef0| 6e 69 74 2d 66 69 6c 65 | 20 32 20 63 6d 70 6c 2d |nit-file| 2 cmpl-|
|00001f00| 73 6f 75 72 63 65 2d 66 | 69 6c 65 2d 70 61 72 73 |source-f|ile-pars|
|00001f10| 69 6e 67 20 33 20 63 6d | 70 6c 2d 73 6f 75 72 63 |ing 3 cm|pl-sourc|
|00001f20| 65 2d 73 65 70 61 72 61 | 74 6f 72 20 34 20 63 6d |e-separa|tor 4 cm|
|00001f30| 70 6c 2d 73 6f 75 72 63 | 65 2d 63 75 72 73 6f 72 |pl-sourc|e-cursor|
|00001f40| 2d 6d 6f 76 65 73 20 35 | 20 63 6d 70 6c 2d 73 6f |-moves 5| cmpl-so|
|00001f50| 75 72 63 65 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |urce-int|eractive|
|00001f60| 20 36 20 63 6d 70 6c 2d | 73 6f 75 72 63 65 2d 63 | 6 cmpl-|source-c|
|00001f70| 64 61 62 62 72 65 76 20 | 37 20 6e 75 6d 2d 63 6d |dabbrev |7 num-cm|
|00001f80| 70 6c 2d 73 6f 75 72 63 | 65 73 20 62 6f 75 6e 64 |pl-sourc|es bound|
|00001f90| 70 20 63 75 72 72 65 6e | 74 2d 63 6f 6d 70 6c 65 |p curren|t-comple|
|00001fa0| 74 69 6f 6e 2d 73 6f 75 | 72 63 65 20 63 64 61 62 |tion-sou|rce cdab|
|00001fb0| 62 72 65 76 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 73 |brev-com|pletions|
|00001fc0| 2d 74 72 69 65 64 20 6e | 69 6c 20 63 64 61 62 62 |-tried n|il cdabb|
|00001fd0| 72 65 76 2d 63 75 72 72 | 65 6e 74 2d 70 6f 69 6e |rev-curr|ent-poin|
|00001fe0| 74 20 63 64 61 62 62 72 | 65 76 2d 63 75 72 72 65 |t cdabbr|ev-curre|
|00001ff0| 6e 74 2d 77 69 6e 64 6f | 77 20 63 64 61 62 62 72 |nt-windo|w cdabbr|
|00002000| 65 76 2d 77 72 61 70 70 | 65 64 2d 70 20 63 64 61 |ev-wrapp|ed-p cda|
|00002010| 62 62 72 65 76 2d 61 62 | 62 72 65 76 2d 73 74 72 |bbrev-ab|brev-str|
|00002020| 69 6e 67 20 22 22 20 63 | 64 61 62 62 72 65 76 2d |ing "" c|dabbrev-|
|00002030| 73 74 61 72 74 2d 70 6f | 69 6e 74 5d 20 33 29 0a |start-po|int] 3).|
|00002040| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 73 65 74 |(defalia|s 'reset|
|00002050| 2d 63 64 61 62 62 72 65 | 76 20 23 5b 28 61 62 62 |-cdabbre|v #[(abb|
|00002060| 72 65 76 2d 73 74 72 69 | 6e 67 20 26 6f 70 74 69 |rev-stri|ng &opti|
|00002070| 6f 6e 61 6c 20 69 6e 69 | 74 69 61 6c 2d 63 6f 6d |onal ini|tial-com|
|00002080| 70 6c 65 74 69 6f 6e 73 | 2d 74 72 69 65 64 29 20 |pletions|-tried) |
|00002090| 22 08 11 08 97 5c 6e 42 | 13 c4 c5 21 87 22 20 5b |"....\nB|...!." [|
|000020a0| 61 62 62 72 65 76 2d 73 | 74 72 69 6e 67 20 63 64 |abbrev-s|tring cd|
|000020b0| 61 62 62 72 65 76 2d 61 | 62 62 72 65 76 2d 73 74 |abbrev-a|bbrev-st|
|000020c0| 72 69 6e 67 20 69 6e 69 | 74 69 61 6c 2d 63 6f 6d |ring ini|tial-com|
|000020d0| 70 6c 65 74 69 6f 6e 73 | 2d 74 72 69 65 64 20 63 |pletions|-tried c|
|000020e0| 64 61 62 62 72 65 76 2d | 63 6f 6d 70 6c 65 74 69 |dabbrev-|completi|
|000020f0| 6f 6e 73 2d 74 72 69 65 | 64 20 72 65 73 65 74 2d |ons-trie|d reset-|
|00002100| 63 64 61 62 62 72 65 76 | 2d 77 69 6e 64 6f 77 20 |cdabbrev|-window |
|00002110| 74 5d 20 32 20 22 5c 0a | 52 65 73 65 74 73 20 74 |t] 2 "\.|Resets t|
|00002120| 68 65 20 63 64 61 62 62 | 72 65 76 20 73 65 61 72 |he cdabb|rev sear|
|00002130| 63 68 20 74 6f 20 73 65 | 61 72 63 68 20 66 6f 72 |ch to se|arch for|
|00002140| 20 61 62 62 72 65 76 2d | 73 74 72 69 6e 67 2e 0a | abbrev-|string..|
|00002150| 49 4e 49 54 49 41 4c 2d | 43 4f 4d 50 4c 45 54 49 |INITIAL-|COMPLETI|
|00002160| 4f 4e 53 2d 54 52 49 45 | 44 20 69 73 20 61 20 6c |ONS-TRIE|D is a l|
|00002170| 69 73 74 20 6f 66 20 64 | 6f 77 6e 63 61 73 65 64 |ist of d|owncased|
|00002180| 20 73 74 72 69 6e 67 73 | 20 74 6f 20 69 67 6e 6f | strings| to igno|
|00002190| 72 65 0a 64 75 72 69 6e | 67 20 74 68 65 20 73 65 |re.durin|g the se|
|000021a0| 61 72 63 68 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |arch."])|.(defali|
|000021b0| 61 73 20 28 71 75 6f 74 | 65 20 73 65 74 2d 63 64 |as (quot|e set-cd|
|000021c0| 61 62 62 72 65 76 2d 62 | 75 66 66 65 72 29 20 23 |abbrev-b|uffer) #|
|000021d0| 5b 6e 69 6c 20 22 08 c1 | 3d 83 0b 00 c2 20 82 0e |[nil "..|=.... ..|
|000021e0| 00 c3 08 21 71 87 22 20 | 5b 63 64 61 62 62 72 65 |...!q." |[cdabbre|
|000021f0| 76 2d 63 75 72 72 65 6e | 74 2d 77 69 6e 64 6f 77 |v-curren|t-window|
|00002200| 20 74 20 6f 74 68 65 72 | 2d 62 75 66 66 65 72 20 | t other|-buffer |
|00002210| 77 69 6e 64 6f 77 2d 62 | 75 66 66 65 72 5d 20 32 |window-b|uffer] 2|
|00002220| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]).(defa|lias 're|
|00002230| 73 65 74 2d 63 64 61 62 | 62 72 65 76 2d 77 69 6e |set-cdab|brev-win|
|00002240| 64 6f 77 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |dow #[(&|optional|
|00002250| 20 69 6e 69 74 69 61 6c | 69 7a 65 70 29 20 22 08 | initial|izep) ".|
|00002260| 83 5c 6e 00 c1 20 12 82 | 26 00 5c 6e c3 3d 83 15 |.\n.. ..|&.\n.=..|
|00002270| 00 c4 12 82 26 00 5c 6e | 83 26 00 c5 5c 6e 21 89 |....&.\n|.&..\n!.|
|00002280| 12 c1 20 3d 83 26 00 c3 | 12 5c 6e 85 4b 00 8a c6 |.. =.&..|.\n.K...|
|00002290| 20 88 60 89 16 07 16 08 | 0e 09 83 43 00 65 0e 08 | .`.....|...C.e..|
|000022a0| 0e 09 5a 5d 82 44 00 65 | 16 5c 6e c4 89 16 0b 29 |..Z].D.e|.\n....)|
|000022b0| 87 22 20 5b 69 6e 69 74 | 69 61 6c 69 7a 65 70 20 |." [init|ializep |
|000022c0| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|000022d0| 63 64 61 62 62 72 65 76 | 2d 63 75 72 72 65 6e 74 |cdabbrev|-current|
|000022e0| 2d 77 69 6e 64 6f 77 20 | 74 20 6e 69 6c 20 6e 65 |-window |t nil ne|
|000022f0| 78 74 2d 77 69 6e 64 6f | 77 20 73 65 74 2d 63 64 |xt-windo|w set-cd|
|00002300| 61 62 62 72 65 76 2d 62 | 75 66 66 65 72 20 63 64 |abbrev-b|uffer cd|
|00002310| 61 62 62 72 65 76 2d 63 | 75 72 72 65 6e 74 2d 70 |abbrev-c|urrent-p|
|00002320| 6f 69 6e 74 20 63 64 61 | 62 62 72 65 76 2d 73 74 |oint cda|bbrev-st|
|00002330| 61 72 74 2d 70 6f 69 6e | 74 20 63 6f 6d 70 6c 65 |art-poin|t comple|
|00002340| 74 69 6f 6e 2d 73 65 61 | 72 63 68 2d 64 69 73 74 |tion-sea|rch-dist|
|00002350| 61 6e 63 65 20 63 64 61 | 62 62 72 65 76 2d 73 74 |ance cda|bbrev-st|
|00002360| 6f 70 2d 70 6f 69 6e 74 | 20 63 64 61 62 62 72 65 |op-point| cdabbre|
|00002370| 76 2d 77 72 61 70 70 65 | 64 2d 70 5d 20 34 20 22 |v-wrappe|d-p] 4 "|
|00002380| 5c 0a 52 65 73 65 74 73 | 20 74 68 65 20 63 64 61 |\.Resets| the cda|
|00002390| 62 62 72 65 76 20 73 65 | 61 72 63 68 20 74 6f 20 |bbrev se|arch to |
|000023a0| 73 65 61 72 63 68 20 66 | 6f 72 20 61 62 62 72 65 |search f|or abbre|
|000023b0| 76 2d 73 74 72 69 6e 67 | 2e 22 5d 29 0a 28 64 65 |v-string|."]).(de|
|000023c0| 66 61 6c 69 61 73 20 27 | 6e 65 78 74 2d 63 64 61 |falias '|next-cda|
|000023d0| 62 62 72 65 76 20 23 5b | 6e 69 6c 20 22 08 85 c0 |bbrev #[|nil "...|
|000023e0| 00 c1 89 89 89 89 89 89 | 1a 1b 1c 1d 1e 06 1e 07 |........|........|
|000023f0| 1e 08 8a c9 8e ca 20 88 | 60 16 08 cb 20 16 07 cc |...... .|`... ...|
|00002400| 0e 0d 21 88 0e 0e 62 88 | cf 0e 10 0e 11 d2 23 83 |..!...b.|......#.|
|00002410| 84 00 68 7a 89 13 d3 55 | 84 53 00 0b d4 55 85 80 |..hz...U|.S...U..|
|00002420| 00 60 12 d5 76 88 68 7a | d3 55 5c 6e 62 88 85 80 |.`..v.hz|.U\nb...|
|00002430| 00 d6 20 89 16 06 85 80 | 00 0e 17 14 0e 06 97 15 |.. .....|........|
|00002440| 5c 66 83 74 00 0d 5c 66 | 40 98 84 74 00 5c 66 41 |\f.t..\f|@..t.\fA|
|00002450| 89 14 84 66 00 5c 66 83 | 7f 00 c1 89 16 06 82 80 |...f.\f.|........|
|00002460| 00 d2 3f 82 a2 00 0e 18 | 84 a5 00 0e 19 83 98 00 |..?.....|........|
|00002470| 64 0e 1a 0e 19 5c 5c 5e | 82 99 00 64 89 16 0e 62 |d....\\^|...d...b|
|00002480| 88 d2 89 16 18 84 2b 00 | 0e 06 83 b3 00 0d 0e 17 |......+.|........|
|00002490| 42 16 17 60 16 0e 2a 0e | 06 86 be 00 db 20 88 dc |B..`..*.|..... ..|
|000024a0| 20 2e 07 87 22 20 5b 63 | 64 61 62 62 72 65 76 2d | ..." [c|dabbrev-|
|000024b0| 63 75 72 72 65 6e 74 2d | 77 69 6e 64 6f 77 20 6e |current-|window n|
|000024c0| 69 6c 20 73 61 76 65 64 | 2d 70 6f 69 6e 74 2d 32 |il saved|-point-2|
|000024d0| 20 73 79 6e 74 61 78 20 | 74 72 69 65 64 2d 6c 69 | syntax |tried-li|
|000024e0| 73 74 20 64 6f 77 6e 63 | 61 73 65 2d 65 78 70 61 |st downc|ase-expa|
|000024f0| 6e 73 69 6f 6e 20 65 78 | 70 61 6e 73 69 6f 6e 20 |nsion ex|pansion |
|00002500| 73 61 76 65 64 2d 73 79 | 6e 74 61 78 20 73 61 76 |saved-sy|ntax sav|
|00002510| 65 64 2d 70 6f 69 6e 74 | 20 28 28 62 79 74 65 2d |ed-point| ((byte-|
|00002520| 63 6f 64 65 20 22 c0 09 | 21 88 5c 6e 62 87 22 20 |code "..|!.\nb." |
|00002530| 5b 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |[set-syn|tax-tabl|
|00002540| 65 20 73 61 76 65 64 2d | 73 79 6e 74 61 78 20 73 |e saved-|syntax s|
|00002550| 61 76 65 64 2d 70 6f 69 | 6e 74 5d 20 32 29 29 20 |aved-poi|nt] 2)) |
|00002560| 73 65 74 2d 63 64 61 62 | 62 72 65 76 2d 62 75 66 |set-cdab|brev-buf|
|00002570| 66 65 72 20 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |fer synt|ax-table|
|00002580| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|00002590| 65 20 63 6d 70 6c 2d 73 | 79 6e 74 61 78 2d 74 61 |e cmpl-s|yntax-ta|
|000025a0| 62 6c 65 20 63 64 61 62 | 62 72 65 76 2d 63 75 72 |ble cdab|brev-cur|
|000025b0| 72 65 6e 74 2d 70 6f 69 | 6e 74 20 73 65 61 72 63 |rent-poi|nt searc|
|000025c0| 68 2d 62 61 63 6b 77 61 | 72 64 20 63 64 61 62 62 |h-backwa|rd cdabb|
|000025d0| 72 65 76 2d 61 62 62 72 | 65 76 2d 73 74 72 69 6e |rev-abbr|ev-strin|
|000025e0| 67 20 63 64 61 62 62 72 | 65 76 2d 73 74 6f 70 2d |g cdabbr|ev-stop-|
|000025f0| 70 6f 69 6e 74 20 74 20 | 33 32 20 31 31 39 20 2d |point t |32 119 -|
|00002600| 31 20 73 79 6d 62 6f 6c | 2d 75 6e 64 65 72 2d 70 |1 symbol|-under-p|
|00002610| 6f 69 6e 74 20 63 64 61 | 62 62 72 65 76 2d 63 6f |oint cda|bbrev-co|
|00002620| 6d 70 6c 65 74 69 6f 6e | 73 2d 74 72 69 65 64 20 |mpletion|s-tried |
|00002630| 63 64 61 62 62 72 65 76 | 2d 77 72 61 70 70 65 64 |cdabbrev|-wrapped|
|00002640| 2d 70 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 73 65 |-p compl|etion-se|
|00002650| 61 72 63 68 2d 64 69 73 | 74 61 6e 63 65 20 63 64 |arch-dis|tance cd|
|00002660| 61 62 62 72 65 76 2d 73 | 74 61 72 74 2d 70 6f 69 |abbrev-s|tart-poi|
|00002670| 6e 74 20 72 65 73 65 74 | 2d 63 64 61 62 62 72 65 |nt reset|-cdabbre|
|00002680| 76 2d 77 69 6e 64 6f 77 | 20 6e 65 78 74 2d 63 64 |v-window| next-cd|
|00002690| 61 62 62 72 65 76 5d 20 | 38 20 22 5c 0a 52 65 74 |abbrev] |8 "\.Ret|
|000026a0| 75 72 6e 20 74 68 65 20 | 6e 65 78 74 20 70 6f 73 |urn the |next pos|
|000026b0| 73 69 62 6c 65 20 63 64 | 61 62 62 72 65 76 20 65 |sible cd|abbrev e|
|000026c0| 78 70 61 6e 73 69 6f 6e | 20 6f 72 20 6e 69 6c 20 |xpansion| or nil |
|000026d0| 69 66 20 74 68 65 72 65 | 20 69 73 6e 27 74 20 6f |if there| isn't o|
|000026e0| 6e 65 2e 0a 60 72 65 73 | 65 74 2d 63 64 61 62 62 |ne..`res|et-cdabb|
|000026f0| 72 65 76 27 20 6d 75 73 | 74 27 76 65 20 62 65 65 |rev' mus|t've bee|
|00002700| 6e 20 63 61 6c 6c 65 64 | 20 61 6c 72 65 61 64 79 |n called| already|
|00002710| 2e 0a 54 68 69 73 20 69 | 73 20 73 65 6e 73 69 74 |..This i|s sensit|
|00002720| 69 76 65 20 74 6f 20 60 | 63 61 73 65 2d 66 6f 6c |ive to `|case-fol|
|00002730| 64 2d 73 65 61 72 63 68 | 27 2e 22 5d 29 0a 28 62 |d-search|'."]).(b|
|00002740| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c0 87 22 20 |yte-code| "...." |
|00002750| 5b 35 31 31 20 63 6d 70 | 6c 2d 6f 62 61 72 72 61 |[511 cmp|l-obarra|
|00002760| 79 2d 6c 65 6e 67 74 68 | 5d 20 31 29 0a 28 64 65 |y-length|] 1).(de|
|00002770| 66 76 61 72 20 63 6d 70 | 6c 2d 70 72 65 66 69 78 |fvar cmp|l-prefix|
|00002780| 2d 6f 62 61 72 72 61 79 | 20 28 6d 61 6b 65 2d 76 |-obarray| (make-v|
|00002790| 65 63 74 6f 72 20 63 6d | 70 6c 2d 6f 62 61 72 72 |ector cm|pl-obarr|
|000027a0| 61 79 2d 6c 65 6e 67 74 | 68 20 30 29 20 22 5c 0a |ay-lengt|h 0) "\.|
|000027b0| 41 6e 20 6f 62 61 72 72 | 61 79 20 75 73 65 64 20 |An obarr|ay used |
|000027c0| 74 6f 20 73 74 6f 72 65 | 20 74 68 65 20 64 6f 77 |to store| the dow|
|000027d0| 6e 63 61 73 65 64 20 63 | 6f 6d 70 6c 65 74 69 6f |ncased c|ompletio|
|000027e0| 6e 20 70 72 65 66 69 78 | 65 73 2e 0a 45 61 63 68 |n prefix|es..Each|
|000027f0| 20 73 79 6d 62 6f 6c 20 | 69 73 20 62 6f 75 6e 64 | symbol |is bound|
|00002800| 20 74 6f 20 61 20 6c 69 | 73 74 20 6f 66 20 63 6f | to a li|st of co|
|00002810| 6d 70 6c 65 74 69 6f 6e | 20 65 6e 74 72 69 65 73 |mpletion| entries|
|00002820| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6d 70 6c |.").(def|var cmpl|
|00002830| 2d 6f 62 61 72 72 61 79 | 20 28 6d 61 6b 65 2d 76 |-obarray| (make-v|
|00002840| 65 63 74 6f 72 20 63 6d | 70 6c 2d 6f 62 61 72 72 |ector cm|pl-obarr|
|00002850| 61 79 2d 6c 65 6e 67 74 | 68 20 30 29 20 22 5c 0a |ay-lengt|h 0) "\.|
|00002860| 41 6e 20 6f 62 61 72 72 | 61 79 20 75 73 65 64 20 |An obarr|ay used |
|00002870| 74 6f 20 73 74 6f 72 65 | 20 74 68 65 20 64 6f 77 |to store| the dow|
|00002880| 6e 63 61 73 65 64 20 63 | 6f 6d 70 6c 65 74 69 6f |ncased c|ompletio|
|00002890| 6e 73 2e 0a 45 61 63 68 | 20 73 79 6d 62 6f 6c 20 |ns..Each| symbol |
|000028a0| 69 73 20 62 6f 75 6e 64 | 20 74 6f 20 61 20 73 69 |is bound| to a si|
|000028b0| 6e 67 6c 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |ngle com|pletion |
|000028c0| 65 6e 74 72 79 2e 22 29 | 0a 28 62 79 74 65 2d 63 |entry.")|.(byte-c|
|000028d0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|000028e0| 88 c0 c5 c6 5c 22 88 c0 | c7 c8 5c 22 88 c0 c9 ca |....\"..|..\"....|
|000028f0| 5c 22 88 c0 cb cc 5c 22 | 88 c0 cd ce 5c 22 87 22 |\"....\"|....\"."|
|00002900| 20 5b 64 65 66 61 6c 69 | 61 73 20 63 6f 6d 70 6c | [defali|as compl|
|00002910| 65 74 69 6f 6e 2d 73 74 | 72 69 6e 67 20 28 6d 61 |etion-st|ring (ma|
|00002920| 63 72 6f 20 2e 20 23 5b | 28 63 6f 6d 70 6c 65 74 |cro . #[|(complet|
|00002930| 69 6f 6e 2d 65 6e 74 72 | 79 29 20 22 c0 09 44 87 |ion-entr|y) "..D.|
|00002940| 22 20 5b 63 61 72 20 63 | 6f 6d 70 6c 65 74 69 6f |" [car c|ompletio|
|00002950| 6e 2d 65 6e 74 72 79 5d | 20 32 5d 29 20 63 6f 6d |n-entry]| 2]) com|
|00002960| 70 6c 65 74 69 6f 6e 2d | 6e 75 6d 2d 75 73 65 73 |pletion-|num-uses|
|00002970| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 63 6f 6d | (macro |. #[(com|
|00002980| 70 6c 65 74 69 6f 6e 2d | 65 6e 74 72 79 29 20 22 |pletion-|entry) "|
|00002990| c0 c1 5c 6e 44 44 87 22 | 20 5b 63 61 72 20 63 64 |..\nDD."| [car cd|
|000029a0| 72 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 65 6e 74 |r comple|tion-ent|
|000029b0| 72 79 5d 20 33 5d 29 20 | 63 6f 6d 70 6c 65 74 69 |ry] 3]) |completi|
|000029c0| 6f 6e 2d 6c 61 73 74 2d | 75 73 65 2d 74 69 6d 65 |on-last-|use-time|
|000029d0| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 63 6f 6d | (macro |. #[(com|
|000029e0| 70 6c 65 74 69 6f 6e 2d | 65 6e 74 72 79 29 20 22 |pletion-|entry) "|
|000029f0| c0 c1 5c 6e 45 87 22 20 | 5b 6e 74 68 20 32 20 63 |..\nE." |[nth 2 c|
|00002a00| 6f 6d 70 6c 65 74 69 6f | 6e 2d 65 6e 74 72 79 5d |ompletio|n-entry]|
|00002a10| 20 33 5d 29 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d | 3]) com|pletion-|
|00002a20| 73 6f 75 72 63 65 20 28 | 6d 61 63 72 6f 20 2e 20 |source (|macro . |
|00002a30| 23 5b 28 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 65 6e |#[(compl|etion-en|
|00002a40| 74 72 79 29 20 22 c0 c1 | 5c 6e 45 87 22 20 5b 6e |try) "..|\nE." [n|
|00002a50| 74 68 20 33 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |th 3 com|pletion-|
|00002a60| 65 6e 74 72 79 5d 20 33 | 5d 29 20 73 65 74 2d 63 |entry] 3|]) set-c|
|00002a70| 6f 6d 70 6c 65 74 69 6f | 6e 2d 73 74 72 69 6e 67 |ompletio|n-string|
|00002a80| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 63 6f 6d | (macro |. #[(com|
|00002a90| 70 6c 65 74 69 6f 6e 2d | 65 6e 74 72 79 20 73 74 |pletion-|entry st|
|00002aa0| 72 69 6e 67 29 20 22 c0 | 09 5c 6e 45 87 22 20 5b |ring) ".|.\nE." [|
|00002ab0| 73 65 74 63 61 72 20 63 | 6f 6d 70 6c 65 74 69 6f |setcar c|ompletio|
|00002ac0| 6e 2d 65 6e 74 72 79 20 | 73 74 72 69 6e 67 5d 20 |n-entry |string] |
|00002ad0| 33 5d 29 20 73 65 74 2d | 63 6f 6d 70 6c 65 74 69 |3]) set-|completi|
|00002ae0| 6f 6e 2d 6e 75 6d 2d 75 | 73 65 73 20 28 6d 61 63 |on-num-u|ses (mac|
|00002af0| 72 6f 20 2e 20 23 5b 28 | 63 6f 6d 70 6c 65 74 69 |ro . #[(|completi|
|00002b00| 6f 6e 2d 65 6e 74 72 79 | 20 6e 75 6d 2d 75 73 65 |on-entry| num-use|
|00002b10| 73 29 20 22 c0 c1 5c 6e | 44 0b 45 87 22 20 5b 73 |s) "..\n|D.E." [s|
|00002b20| 65 74 63 61 72 20 63 64 | 72 20 63 6f 6d 70 6c 65 |etcar cd|r comple|
|00002b30| 74 69 6f 6e 2d 65 6e 74 | 72 79 20 6e 75 6d 2d 75 |tion-ent|ry num-u|
|00002b40| 73 65 73 5d 20 33 5d 29 | 20 73 65 74 2d 63 6f 6d |ses] 3])| set-com|
|00002b50| 70 6c 65 74 69 6f 6e 2d | 6c 61 73 74 2d 75 73 65 |pletion-|last-use|
|00002b60| 2d 74 69 6d 65 20 28 6d | 61 63 72 6f 20 2e 20 23 |-time (m|acro . #|
|00002b70| 5b 28 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 65 6e 74 |[(comple|tion-ent|
|00002b80| 72 79 20 6c 61 73 74 2d | 75 73 65 2d 74 69 6d 65 |ry last-|use-time|
|00002b90| 29 20 22 c0 c1 89 5c 6e | 44 44 0b 45 87 22 20 5b |) "...\n|DD.E." [|
|00002ba0| 73 65 74 63 61 72 20 63 | 64 72 20 63 6f 6d 70 6c |setcar c|dr compl|
|00002bb0| 65 74 69 6f 6e 2d 65 6e | 74 72 79 20 6c 61 73 74 |etion-en|try last|
|00002bc0| 2d 75 73 65 2d 74 69 6d | 65 5d 20 34 5d 29 5d 20 |-use-tim|e] 4])] |
|00002bd0| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |3).(defa|lias 'ma|
|00002be0| 6b 65 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 20 23 5b |ke-compl|etion #[|
|00002bf0| 28 73 74 72 69 6e 67 29 | 20 22 08 c1 c2 0b 46 43 |(string)| "....FC|
|00002c00| 87 22 20 5b 73 74 72 69 | 6e 67 20 30 20 6e 69 6c |." [stri|ng 0 nil|
|00002c10| 20 63 75 72 72 65 6e 74 | 2d 63 6f 6d 70 6c 65 74 | current|-complet|
|00002c20| 69 6f 6e 2d 73 6f 75 72 | 63 65 5d 20 34 20 22 5c |ion-sour|ce] 4 "\|
|00002c30| 0a 52 65 74 75 72 6e 73 | 20 61 20 6c 69 73 74 20 |.Returns| a list |
|00002c40| 6f 66 20 61 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |of a com|pletion |
|00002c50| 65 6e 74 72 79 2e 22 5d | 29 0a 28 62 79 74 65 2d |entry."]|).(byte-|
|00002c60| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c0 c3 c4 5c |code "..|.\"....\|
|00002c70| 22 88 c0 c5 c6 5c 22 88 | c0 c7 c8 5c 22 87 22 20 |"....\".|...\"." |
|00002c80| 5b 64 65 66 61 6c 69 61 | 73 20 63 6d 70 6c 2d 70 |[defalia|s cmpl-p|
|00002c90| 72 65 66 69 78 2d 65 6e | 74 72 79 2d 68 65 61 64 |refix-en|try-head|
|00002ca0| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 70 72 65 | (macro |. #[(pre|
|00002cb0| 66 69 78 2d 65 6e 74 72 | 79 29 20 22 c0 09 44 87 |fix-entr|y) "..D.|
|00002cc0| 22 20 5b 63 61 72 20 70 | 72 65 66 69 78 2d 65 6e |" [car p|refix-en|
|00002cd0| 74 72 79 5d 20 32 5d 29 | 20 63 6d 70 6c 2d 70 72 |try] 2])| cmpl-pr|
|00002ce0| 65 66 69 78 2d 65 6e 74 | 72 79 2d 74 61 69 6c 20 |efix-ent|ry-tail |
|00002cf0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 70 72 65 66 |(macro .| #[(pref|
|00002d00| 69 78 2d 65 6e 74 72 79 | 29 20 22 c0 09 44 87 22 |ix-entry|) "..D."|
|00002d10| 20 5b 63 64 72 20 70 72 | 65 66 69 78 2d 65 6e 74 | [cdr pr|efix-ent|
|00002d20| 72 79 5d 20 32 5d 29 20 | 73 65 74 2d 63 6d 70 6c |ry] 2]) |set-cmpl|
|00002d30| 2d 70 72 65 66 69 78 2d | 65 6e 74 72 79 2d 68 65 |-prefix-|entry-he|
|00002d40| 61 64 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 70 |ad (macr|o . #[(p|
|00002d50| 72 65 66 69 78 2d 65 6e | 74 72 79 20 6e 65 77 2d |refix-en|try new-|
|00002d60| 68 65 61 64 29 20 22 c0 | 09 5c 6e 45 87 22 20 5b |head) ".|.\nE." [|
|00002d70| 73 65 74 63 61 72 20 70 | 72 65 66 69 78 2d 65 6e |setcar p|refix-en|
|00002d80| 74 72 79 20 6e 65 77 2d | 68 65 61 64 5d 20 33 5d |try new-|head] 3]|
|00002d90| 29 20 73 65 74 2d 63 6d | 70 6c 2d 70 72 65 66 69 |) set-cm|pl-prefi|
|00002da0| 78 2d 65 6e 74 72 79 2d | 74 61 69 6c 20 28 6d 61 |x-entry-|tail (ma|
|00002db0| 63 72 6f 20 2e 20 23 5b | 28 70 72 65 66 69 78 2d |cro . #[|(prefix-|
|00002dc0| 65 6e 74 72 79 20 6e 65 | 77 2d 74 61 69 6c 29 20 |entry ne|w-tail) |
|00002dd0| 22 c0 09 5c 6e 45 87 22 | 20 5b 73 65 74 63 64 72 |"..\nE."| [setcdr|
|00002de0| 20 70 72 65 66 69 78 2d | 65 6e 74 72 79 20 6e 65 | prefix-|entry ne|
|00002df0| 77 2d 74 61 69 6c 5d 20 | 33 5d 29 5d 20 33 29 0a |w-tail] |3])] 3).|
|00002e00| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 6b 65 2d |(defalia|s 'make-|
|00002e10| 63 6d 70 6c 2d 70 72 65 | 66 69 78 2d 65 6e 74 72 |cmpl-pre|fix-entr|
|00002e20| 79 20 23 5b 28 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |y #[(com|pletion-|
|00002e30| 65 6e 74 72 79 2d 6c 69 | 73 74 29 20 22 08 89 42 |entry-li|st) "..B|
|00002e40| 87 22 20 5b 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 65 |." [comp|letion-e|
|00002e50| 6e 74 72 79 2d 6c 69 73 | 74 5d 20 32 20 22 5c 0a |ntry-lis|t] 2 "\.|
|00002e60| 4d 61 6b 65 73 20 61 20 | 6e 65 77 20 70 72 65 66 |Makes a |new pref|
|00002e70| 69 78 20 65 6e 74 72 79 | 20 63 6f 6e 74 61 69 6e |ix entry| contain|
|00002e80| 69 6e 67 20 6f 6e 6c 79 | 20 63 6f 6d 70 6c 65 74 |ing only| complet|
|00002e90| 69 6f 6e 2d 65 6e 74 72 | 79 2e 22 5d 29 0a 28 64 |ion-entr|y."]).(d|
|00002ea0| 65 66 61 6c 69 61 73 20 | 27 63 6c 65 61 72 2d 61 |efalias |'clear-a|
|00002eb0| 6c 6c 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 73 20 23 |ll-compl|etions #|
|00002ec0| 5b 6e 69 6c 20 22 c0 09 | c2 5c 22 13 c0 09 c2 5c |[nil "..|.\"....\|
|00002ed0| 22 14 c5 87 22 20 5b 6d | 61 6b 65 2d 76 65 63 74 |"..." [m|ake-vect|
|00002ee0| 6f 72 20 63 6d 70 6c 2d | 6f 62 61 72 72 61 79 2d |or cmpl-|obarray-|
|00002ef0| 6c 65 6e 67 74 68 20 30 | 20 63 6d 70 6c 2d 70 72 |length 0| cmpl-pr|
|00002f00| 65 66 69 78 2d 6f 62 61 | 72 72 61 79 20 63 6d 70 |efix-oba|rray cmp|
|00002f10| 6c 2d 6f 62 61 72 72 61 | 79 20 6e 69 6c 5d 20 33 |l-obarra|y nil] 3|
|00002f20| 20 22 5c 0a 49 6e 69 74 | 69 61 6c 69 7a 65 73 20 | "\.Init|ializes |
|00002f30| 74 68 65 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 73 |the comp|letion s|
|00002f40| 74 6f 72 61 67 65 2e 20 | 20 41 6c 6c 20 65 78 69 |torage. | All exi|
|00002f50| 73 74 69 6e 67 20 63 6f | 6d 70 6c 65 74 69 6f 6e |sting co|mpletion|
|00002f60| 73 20 61 72 65 20 6c 6f | 73 74 2e 22 20 6e 69 6c |s are lo|st." nil|
|00002f70| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 69 |]).(defa|lias 'li|
|00002f80| 73 74 2d 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 69 6f |st-all-c|ompletio|
|00002f90| 6e 73 20 23 5b 6e 69 6c | 20 22 c0 19 c2 c3 5c 66 |ns #[nil| "....\f|
|00002fa0| 5c 22 88 09 29 87 22 20 | 5b 6e 69 6c 20 72 65 74 |\"..)." |[nil ret|
|00002fb0| 75 72 6e 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 20 |urn-comp|letions |
|00002fc0| 6d 61 70 61 74 6f 6d 73 | 20 6c 69 73 74 2d 61 6c |mapatoms| list-al|
|00002fd0| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 2d 31 20 |l-comple|tions-1 |
|00002fe0| 63 6d 70 6c 2d 70 72 65 | 66 69 78 2d 6f 62 61 72 |cmpl-pre|fix-obar|
|00002ff0| 72 61 79 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |ray] 3 "|\.Return|
|00003000| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |s a list| of all |
|00003010| 74 68 65 20 6b 6e 6f 77 | 6e 20 63 6f 6d 70 6c 65 |the know|n comple|
|00003020| 74 69 6f 6e 20 65 6e 74 | 72 69 65 73 2e 22 5d 29 |tion ent|ries."])|
|00003030| 0a 28 64 65 66 61 6c 69 | 61 73 20 28 71 75 6f 74 |.(defali|as (quot|
|00003040| 65 20 6c 69 73 74 2d 61 | 6c 6c 2d 63 6f 6d 70 6c |e list-a|ll-compl|
|00003050| 65 74 69 6f 6e 73 2d 31 | 29 20 23 5b 28 70 72 65 |etions-1|) #[(pre|
|00003060| 66 69 78 2d 73 79 6d 62 | 6f 6c 29 20 22 c0 09 21 |fix-symb|ol) "..!|
|00003070| 85 0e 00 c2 09 4a 40 0b | 5c 22 89 13 87 22 20 5b |.....J@.|\"..." [|
|00003080| 62 6f 75 6e 64 70 20 70 | 72 65 66 69 78 2d 73 79 |boundp p|refix-sy|
|00003090| 6d 62 6f 6c 20 61 70 70 | 65 6e 64 20 72 65 74 75 |mbol app|end retu|
|000030a0| 72 6e 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 73 5d 20 |rn-compl|etions] |
|000030b0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |3]).(def|alias 'l|
|000030c0| 69 73 74 2d 61 6c 6c 2d | 63 6f 6d 70 6c 65 74 69 |ist-all-|completi|
|000030d0| 6f 6e 73 2d 62 79 2d 68 | 61 73 68 2d 62 75 63 6b |ons-by-h|ash-buck|
|000030e0| 65 74 20 23 5b 6e 69 6c | 20 22 c0 19 c2 c3 5c 66 |et #[nil| "....\f|
|000030f0| 5c 22 88 09 29 87 22 20 | 5b 6e 69 6c 20 72 65 74 |\"..)." |[nil ret|
|00003100| 75 72 6e 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 20 |urn-comp|letions |
|00003110| 6d 61 70 61 74 6f 6d 73 | 20 6c 69 73 74 2d 61 6c |mapatoms| list-al|
|00003120| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 2d 62 79 |l-comple|tions-by|
|00003130| 2d 68 61 73 68 2d 62 75 | 63 6b 65 74 2d 31 20 63 |-hash-bu|cket-1 c|
|00003140| 6d 70 6c 2d 70 72 65 66 | 69 78 2d 6f 62 61 72 72 |mpl-pref|ix-obarr|
|00003150| 61 79 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |ay] 3 "\|.Return |
|00003160| 6c 69 73 74 20 6f 66 20 | 6c 69 73 74 73 20 6f 66 |list of |lists of|
|00003170| 20 6b 6e 6f 77 6e 20 63 | 6f 6d 70 6c 65 74 69 6f | known c|ompletio|
|00003180| 6e 20 65 6e 74 72 69 65 | 73 2c 20 6f 72 67 61 6e |n entrie|s, organ|
|00003190| 69 7a 65 64 20 62 79 20 | 68 61 73 68 20 62 75 63 |ized by |hash buc|
|000031a0| 6b 65 74 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ket."]).|(byte-co|
|000031b0| 64 65 20 22 c0 c1 c2 5c | 22 88 c3 c4 21 84 0d 00 |de "...\|"...!...|
|000031c0| c5 14 c3 c6 21 84 16 00 | c5 16 06 c3 c7 21 84 1f |....!...|.....!..|
|000031d0| 00 c5 16 07 c3 c8 21 84 | 28 00 c5 16 08 c3 c9 21 |......!.|(......!|
|000031e0| 84 31 00 c5 16 09 c5 87 | 22 20 5b 64 65 66 61 6c |.1......|" [defal|
|000031f0| 69 61 73 20 6c 69 73 74 | 2d 61 6c 6c 2d 63 6f 6d |ias list|-all-com|
|00003200| 70 6c 65 74 69 6f 6e 73 | 2d 62 79 2d 68 61 73 68 |pletions|-by-hash|
|00003210| 2d 62 75 63 6b 65 74 2d | 31 20 23 5b 28 70 72 65 |-bucket-|1 #[(pre|
|00003220| 66 69 78 2d 73 79 6d 62 | 6f 6c 29 20 22 c0 09 21 |fix-symb|ol) "..!|
|00003230| 85 0d 00 09 4a 40 5c 6e | 42 89 12 87 22 20 5b 62 |....J@\n|B..." [b|
|00003240| 6f 75 6e 64 70 20 70 72 | 65 66 69 78 2d 73 79 6d |oundp pr|efix-sym|
|00003250| 62 6f 6c 20 72 65 74 75 | 72 6e 2d 63 6f 6d 70 6c |bol retu|rn-compl|
|00003260| 65 74 69 6f 6e 73 5d 20 | 32 5d 20 62 6f 75 6e 64 |etions] |2] bound|
|00003270| 70 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 74 6f 2d |p comple|tion-to-|
|00003280| 61 63 63 65 70 74 20 6e | 69 6c 20 63 6d 70 6c 2d |accept n|il cmpl-|
|00003290| 64 62 2d 64 6f 77 6e 63 | 61 73 65 2d 73 74 72 69 |db-downc|ase-stri|
|000032a0| 6e 67 20 63 6d 70 6c 2d | 64 62 2d 73 79 6d 62 6f |ng cmpl-|db-symbo|
|000032b0| 6c 20 63 6d 70 6c 2d 64 | 62 2d 70 72 65 66 69 78 |l cmpl-d|b-prefix|
|000032c0| 2d 73 79 6d 62 6f 6c 20 | 63 6d 70 6c 2d 64 62 2d |-symbol |cmpl-db-|
|000032d0| 65 6e 74 72 79 5d 20 33 | 29 0a 28 64 65 66 76 61 |entry] 3|).(defva|
|000032e0| 72 20 63 6d 70 6c 2d 64 | 62 2d 64 65 62 75 67 2d |r cmpl-d|b-debug-|
|000032f0| 70 20 6e 69 6c 20 22 5c | 0a 53 65 74 20 74 6f 20 |p nil "\|.Set to |
|00003300| 54 20 69 66 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |T if you| want to|
|00003310| 20 64 65 62 75 67 20 74 | 68 65 20 64 61 74 61 62 | debug t|he datab|
|00003320| 61 73 65 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |ase.").(|defalias|
|00003330| 20 27 66 69 6e 64 2d 65 | 78 61 63 74 2d 63 6f 6d | 'find-e|xact-com|
|00003340| 70 6c 65 74 69 6f 6e 20 | 23 5b 28 73 74 72 69 6e |pletion |#[(strin|
|00003350| 67 29 20 22 c0 c1 5c 6e | 97 89 13 5c 66 5c 22 89 |g) "..\n|...\f\".|
|00003360| 15 21 85 10 00 0d 4a 87 | 22 20 5b 62 6f 75 6e 64 |.!....J.|" [bound|
|00003370| 70 20 69 6e 74 65 72 6e | 20 73 74 72 69 6e 67 20 |p intern| string |
|00003380| 63 6d 70 6c 2d 64 62 2d | 64 6f 77 6e 63 61 73 65 |cmpl-db-|downcase|
|00003390| 2d 73 74 72 69 6e 67 20 | 63 6d 70 6c 2d 6f 62 61 |-string |cmpl-oba|
|000033a0| 72 72 61 79 20 63 6d 70 | 6c 2d 64 62 2d 73 79 6d |rray cmp|l-db-sym|
|000033b0| 62 6f 6c 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |bol] 4 "|\.Return|
|000033c0| 73 20 74 68 65 20 63 6f | 6d 70 6c 65 74 69 6f 6e |s the co|mpletion|
|000033d0| 20 65 6e 74 72 79 20 66 | 6f 72 20 73 74 72 69 6e | entry f|or strin|
|000033e0| 67 20 6f 72 20 6e 69 6c | 2e 0a 53 65 74 73 20 75 |g or nil|..Sets u|
|000033f0| 70 20 60 63 6d 70 6c 2d | 64 62 2d 64 6f 77 6e 63 |p `cmpl-|db-downc|
|00003400| 61 73 65 2d 73 74 72 69 | 6e 67 27 20 61 6e 64 20 |ase-stri|ng' and |
|00003410| 60 63 6d 70 6c 2d 64 62 | 2d 73 79 6d 62 6f 6c 27 |`cmpl-db|-symbol'|
|00003420| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00003430| 66 69 6e 64 2d 63 6d 70 | 6c 2d 70 72 65 66 69 78 |find-cmp|l-prefix|
|00003440| 2d 65 6e 74 72 79 20 23 | 5b 28 70 72 65 66 69 78 |-entry #|[(prefix|
|00003450| 2d 73 74 72 69 6e 67 29 | 20 22 c0 c1 5c 6e 0b 5c |-string)| "..\n.\|
|00003460| 22 89 14 21 85 0d 00 5c | 66 4a 87 22 20 5b 62 6f |"..!...\|fJ." [bo|
|00003470| 75 6e 64 70 20 69 6e 74 | 65 72 6e 20 70 72 65 66 |undp int|ern pref|
|00003480| 69 78 2d 73 74 72 69 6e | 67 20 63 6d 70 6c 2d 70 |ix-strin|g cmpl-p|
|00003490| 72 65 66 69 78 2d 6f 62 | 61 72 72 61 79 20 63 6d |refix-ob|array cm|
|000034a0| 70 6c 2d 64 62 2d 70 72 | 65 66 69 78 2d 73 79 6d |pl-db-pr|efix-sym|
|000034b0| 62 6f 6c 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |bol] 4 "|\.Return|
|000034c0| 73 20 74 68 65 20 70 72 | 65 66 69 78 20 65 6e 74 |s the pr|efix ent|
|000034d0| 72 79 20 66 6f 72 20 73 | 74 72 69 6e 67 2e 0a 53 |ry for s|tring..S|
|000034e0| 65 74 73 20 60 63 6d 70 | 6c 2d 64 62 2d 70 72 65 |ets `cmp|l-db-pre|
|000034f0| 66 69 78 2d 73 79 6d 62 | 6f 6c 27 2e 0a 50 72 65 |fix-symb|ol'..Pre|
|00003500| 66 69 78 2d 73 74 72 69 | 6e 67 20 6d 75 73 74 20 |fix-stri|ng must |
|00003510| 62 65 20 65 78 61 63 74 | 6c 79 20 60 63 6f 6d 70 |be exact|ly `comp|
|00003520| 6c 65 74 69 6f 6e 2d 70 | 72 65 66 69 78 2d 6d 69 |letion-p|refix-mi|
|00003530| 6e 2d 6c 65 6e 67 74 68 | 27 20 6c 6f 6e 67 0a 61 |n-length|' long.a|
|00003540| 6e 64 20 64 6f 77 6e 63 | 61 73 65 64 2e 20 20 53 |nd downc|ased.  S|
|00003550| 65 74 73 20 75 70 20 60 | 63 6d 70 6c 2d 64 62 2d |ets up `|cmpl-db-|
|00003560| 70 72 65 66 69 78 2d 73 | 79 6d 62 6f 6c 27 2e 22 |prefix-s|ymbol'."|
|00003570| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00003580| c1 21 84 08 00 c2 11 c2 | 87 22 20 5b 62 6f 75 6e |.!......|." [boun|
|00003590| 64 70 20 69 6e 73 69 64 | 65 2d 6c 6f 63 61 74 65 |dp insid|e-locate|
|000035a0| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 65 6e 74 72 |-complet|ion-entr|
|000035b0| 79 20 6e 69 6c 5d 20 32 | 29 0a 28 64 65 66 61 6c |y nil] 2|).(defal|
|000035c0| 69 61 73 20 27 6c 6f 63 | 61 74 65 2d 63 6f 6d 70 |ias 'loc|ate-comp|
|000035d0| 6c 65 74 69 6f 6e 2d 65 | 6e 74 72 79 20 23 5b 28 |letion-e|ntry #[(|
|000035e0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 65 6e 74 72 79 |completi|on-entry|
|000035f0| 20 70 72 65 66 69 78 2d | 65 6e 74 72 79 29 20 22 | prefix-|entry) "|
|00003600| 08 40 c1 1a 89 1b 40 5c | 66 3d 3f 85 43 00 0b 83 |.@....@\|f=?.C...|
|00003610| 21 00 5c 66 0b 41 89 12 | 40 3d 84 21 00 5c 6e 89 |!.\f.A..|@=.!.\n.|
|00003620| 13 84 11 00 0b 86 43 00 | 0d 83 31 00 c6 c7 0e 08 |......C.|..1.....|
|00003630| 5c 22 82 43 00 0e 09 83 | 3b 00 ca 20 82 43 00 0e |\".C....|;.. .C..|
|00003640| 0b c1 4c 88 cc 5c 66 21 | 2a 87 22 20 5b 70 72 65 |..L..\f!|*." [pre|
|00003650| 66 69 78 2d 65 6e 74 72 | 79 20 6e 69 6c 20 6e 65 |fix-entr|y nil ne|
|00003660| 78 74 2d 70 72 65 66 69 | 78 2d 6c 69 73 74 20 70 |xt-prefi|x-list p|
|00003670| 72 65 66 69 78 2d 6c 69 | 73 74 20 63 6f 6d 70 6c |refix-li|st compl|
|00003680| 65 74 69 6f 6e 2d 65 6e | 74 72 79 20 63 6d 70 6c |etion-en|try cmpl|
|00003690| 2d 64 62 2d 64 65 62 75 | 67 2d 70 20 65 72 72 6f |-db-debu|g-p erro|
|000036a0| 72 20 22 43 6f 6d 70 6c | 65 74 69 6f 6e 20 65 6e |r "Compl|etion en|
|000036b0| 74 72 79 20 65 78 69 73 | 74 73 20 62 75 74 20 6e |try exis|ts but n|
|000036c0| 6f 74 20 6f 6e 20 70 72 | 65 66 69 78 20 6c 69 73 |ot on pr|efix lis|
|000036d0| 74 20 2d 20 25 73 22 20 | 73 74 72 69 6e 67 20 69 |t - %s" |string i|
|000036e0| 6e 73 69 64 65 2d 6c 6f | 63 61 74 65 2d 63 6f 6d |nside-lo|cate-com|
|000036f0| 70 6c 65 74 69 6f 6e 2d | 65 6e 74 72 79 20 6c 6f |pletion-|entry lo|
|00003700| 63 61 74 65 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |cate-com|pletion-|
|00003710| 64 62 2d 65 72 72 6f 72 | 20 63 6d 70 6c 2d 64 62 |db-error| cmpl-db|
|00003720| 2d 73 79 6d 62 6f 6c 20 | 6c 6f 63 61 74 65 2d 63 |-symbol |locate-c|
|00003730| 6f 6d 70 6c 65 74 69 6f | 6e 2d 65 6e 74 72 79 2d |ompletio|n-entry-|
|00003740| 72 65 74 72 79 5d 20 34 | 20 22 5c 0a 4c 6f 63 61 |retry] 4| "\.Loca|
|00003750| 74 65 73 20 74 68 65 20 | 63 6f 6d 70 6c 65 74 69 |tes the |completi|
|00003760| 6f 6e 20 65 6e 74 72 79 | 2e 0a 52 65 74 75 72 6e |on entry|..Return|
|00003770| 73 20 61 20 70 6f 69 6e | 74 65 72 20 74 6f 20 74 |s a poin|ter to t|
|00003780| 68 65 20 65 6c 65 6d 65 | 6e 74 20 62 65 66 6f 72 |he eleme|nt befor|
|00003790| 65 20 74 68 65 20 63 6f | 6d 70 6c 65 74 69 6f 6e |e the co|mpletion|
|000037a0| 20 65 6e 74 72 79 20 6f | 72 20 6e 69 6c 20 69 66 | entry o|r nil if|
|000037b0| 0a 74 68 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |.the com|pletion |
|000037c0| 65 6e 74 72 79 20 69 73 | 20 61 74 20 74 68 65 20 |entry is| at the |
|000037d0| 68 65 61 64 2e 0a 4d 75 | 73 74 20 62 65 20 63 61 |head..Mu|st be ca|
|000037e0| 6c 6c 65 64 20 61 66 74 | 65 72 20 60 66 69 6e 64 |lled aft|er `find|
|000037f0| 2d 65 78 61 63 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |-exact-c|ompletio|
|00003800| 6e 27 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |n'."]).(|byte-cod|
|00003810| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|00003820| 20 5b 64 65 66 61 6c 69 | 61 73 20 6c 6f 63 61 74 | [defali|as locat|
|00003830| 65 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 65 6e 74 |e-comple|tion-ent|
|00003840| 72 79 2d 72 65 74 72 79 | 20 23 5b 28 6f 6c 64 2d |ry-retry| #[(old-|
|00003850| 65 6e 74 72 79 29 20 22 | c0 19 c2 0b 40 0b 41 40 |entry) "|....@.A@|
|00003860| c4 0b 38 23 88 c5 0b 40 | 21 0e 06 85 1e 00 c7 0e |..8#...@|!.......|
|00003870| 08 c9 0e 5c 6e 4f 21 1e | 0b 89 1e 06 83 34 00 0e |...\nO!.|.....4..|
|00003880| 0b 83 34 00 cc 0e 06 0e | 0b 5c 22 82 36 00 cd 20 |..4.....|.\".6.. |
|00003890| 2b 87 22 20 5b 74 20 69 | 6e 73 69 64 65 2d 6c 6f |+." [t i|nside-lo|
|000038a0| 63 61 74 65 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |cate-com|pletion-|
|000038b0| 65 6e 74 72 79 20 61 64 | 64 2d 63 6f 6d 70 6c 65 |entry ad|d-comple|
|000038c0| 74 69 6f 6e 20 6f 6c 64 | 2d 65 6e 74 72 79 20 32 |tion old|-entry 2|
|000038d0| 20 66 69 6e 64 2d 65 78 | 61 63 74 2d 63 6f 6d 70 | find-ex|act-comp|
|000038e0| 6c 65 74 69 6f 6e 20 63 | 6d 70 6c 2d 65 6e 74 72 |letion c|mpl-entr|
|000038f0| 79 20 66 69 6e 64 2d 63 | 6d 70 6c 2d 70 72 65 66 |y find-c|mpl-pref|
|00003900| 69 78 2d 65 6e 74 72 79 | 20 63 6d 70 6c 2d 64 62 |ix-entry| cmpl-db|
|00003910| 2d 64 6f 77 6e 63 61 73 | 65 2d 73 74 72 69 6e 67 |-downcas|e-string|
|00003920| 20 30 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 70 72 | 0 compl|etion-pr|
|00003930| 65 66 69 78 2d 6d 69 6e | 2d 6c 65 6e 67 74 68 20 |efix-min|-length |
|00003940| 70 72 65 66 2d 65 6e 74 | 72 79 20 6c 6f 63 61 74 |pref-ent|ry locat|
|00003950| 65 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 65 6e 74 |e-comple|tion-ent|
|00003960| 72 79 20 6c 6f 63 61 74 | 65 2d 63 6f 6d 70 6c 65 |ry locat|e-comple|
|00003970| 74 69 6f 6e 2d 64 62 2d | 65 72 72 6f 72 5d 20 36 |tion-db-|error] 6|
|00003980| 5d 20 6c 6f 63 61 74 65 | 2d 63 6f 6d 70 6c 65 74 |] locate|-complet|
|00003990| 69 6f 6e 2d 64 62 2d 65 | 72 72 6f 72 20 23 5b 6e |ion-db-e|rror #[n|
|000039a0| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 65 72 72 6f 72 |il "..!.|" [error|
|000039b0| 20 22 43 6f 6d 70 6c 65 | 74 69 6f 6e 20 64 61 74 | "Comple|tion dat|
|000039c0| 61 62 61 73 65 20 63 6f | 72 72 75 70 74 65 64 2e |abase co|rrupted.|
|000039d0| 20 20 54 72 79 20 4d 2d | 78 20 63 6c 65 61 72 2d |  Try M-|x clear-|
|000039e0| 61 6c 6c 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 2e |all-comp|letions.|
|000039f0| 20 20 53 65 6e 64 20 62 | 75 67 20 72 65 70 6f 72 |  Send b|ug repor|
|00003a00| 74 2e 22 5d 20 32 5d 5d | 20 33 29 0a 28 64 65 66 |t."] 2]]| 3).(def|
|00003a10| 61 6c 69 61 73 20 27 61 | 64 64 2d 63 6f 6d 70 6c |alias 'a|dd-compl|
|00003a20| 65 74 69 6f 6e 2d 74 6f | 2d 74 61 69 6c 2d 69 66 |etion-to|-tail-if|
|00003a30| 2d 6e 65 77 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |-new #[(|string) |
|00003a40| 22 c0 09 21 86 38 00 c2 | 09 21 c3 5c 66 c5 0e 06 |"..!.8..|.!.\f...|
|00003a50| 4f 21 1e 07 1e 08 0e 07 | 83 29 00 0e 07 41 0e 08 |O!......|.)...A..|
|00003a60| a1 88 0e 07 0e 08 a1 88 | 82 31 00 0e 09 ca 0e 08 |........|.1......|
|00003a70| 21 4c 88 0e 0b 0e 08 40 | 4c 2a 87 22 20 5b 66 69 |!L.....@|L*." [fi|
|00003a80| 6e 64 2d 65 78 61 63 74 | 2d 63 6f 6d 70 6c 65 74 |nd-exact|-complet|
|00003a90| 69 6f 6e 20 73 74 72 69 | 6e 67 20 6d 61 6b 65 2d |ion stri|ng make-|
|00003aa0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 66 69 6e 64 2d |completi|on find-|
|00003ab0| 63 6d 70 6c 2d 70 72 65 | 66 69 78 2d 65 6e 74 72 |cmpl-pre|fix-entr|
|00003ac0| 79 20 63 6d 70 6c 2d 64 | 62 2d 64 6f 77 6e 63 61 |y cmpl-d|b-downca|
|00003ad0| 73 65 2d 73 74 72 69 6e | 67 20 30 20 63 6f 6d 70 |se-strin|g 0 comp|
|00003ae0| 6c 65 74 69 6f 6e 2d 70 | 72 65 66 69 78 2d 6d 69 |letion-p|refix-mi|
|00003af0| 6e 2d 6c 65 6e 67 74 68 | 20 70 72 65 66 69 78 2d |n-length| prefix-|
|00003b00| 65 6e 74 72 79 20 65 6e | 74 72 79 20 63 6d 70 6c |entry en|try cmpl|
|00003b10| 2d 64 62 2d 70 72 65 66 | 69 78 2d 73 79 6d 62 6f |-db-pref|ix-symbo|
|00003b20| 6c 20 6d 61 6b 65 2d 63 | 6d 70 6c 2d 70 72 65 66 |l make-c|mpl-pref|
|00003b30| 69 78 2d 65 6e 74 72 79 | 20 63 6d 70 6c 2d 64 62 |ix-entry| cmpl-db|
|00003b40| 2d 73 79 6d 62 6f 6c 5d | 20 35 20 22 5c 0a 49 66 |-symbol]| 5 "\.If|
|00003b50| 20 53 54 52 49 4e 47 20 | 69 73 20 6e 6f 74 20 69 | STRING |is not i|
|00003b60| 6e 20 74 68 65 20 64 61 | 74 61 62 61 73 65 20 61 |n the da|tabase a|
|00003b70| 64 64 20 69 74 20 74 6f | 20 61 70 70 72 6f 70 72 |dd it to| appropr|
|00003b80| 69 61 74 65 20 70 72 65 | 66 69 78 20 6c 69 73 74 |iate pre|fix list|
|00003b90| 2e 0a 53 54 52 49 4e 47 | 20 69 73 20 61 64 64 65 |..STRING| is adde|
|00003ba0| 64 20 74 6f 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |d to the| end of |
|00003bb0| 74 68 65 20 61 70 70 72 | 6f 70 72 69 61 74 65 20 |the appr|opriate |
|00003bc0| 70 72 65 66 69 78 20 6c | 69 73 74 20 77 69 74 68 |prefix l|ist with|
|00003bd0| 0a 6e 75 6d 2d 75 73 65 | 73 20 3d 20 30 2e 20 20 |.num-use|s = 0.  |
|00003be0| 54 68 65 20 64 61 74 61 | 62 61 73 65 20 69 73 20 |The data|base is |
|00003bf0| 75 6e 63 68 61 6e 67 65 | 64 20 69 66 20 69 74 20 |unchange|d if it |
|00003c00| 69 73 20 74 68 65 72 65 | 2e 20 20 53 54 52 49 4e |is there|.  STRIN|
|00003c10| 47 20 6d 75 73 74 20 62 | 65 0a 6c 6f 6e 67 65 72 |G must b|e.longer|
|00003c20| 20 74 68 61 6e 20 60 63 | 6f 6d 70 6c 65 74 69 6f | than `c|ompletio|
|00003c30| 6e 2d 70 72 65 66 69 78 | 2d 6d 69 6e 2d 6c 65 6e |n-prefix|-min-len|
|00003c40| 67 74 68 27 2e 0a 54 68 | 69 73 20 6d 75 73 74 20 |gth'..Th|is must |
|00003c50| 62 65 20 76 65 72 79 20 | 66 61 73 74 2e 0a 52 65 |be very |fast..Re|
|00003c60| 74 75 72 6e 73 20 74 68 | 65 20 63 6f 6d 70 6c 65 |turns th|e comple|
|00003c70| 74 69 6f 6e 20 65 6e 74 | 72 79 2e 22 5d 29 0a 28 |tion ent|ry."]).(|
|00003c80| 64 65 66 61 6c 69 61 73 | 20 27 61 64 64 2d 63 6f |defalias| 'add-co|
|00003c90| 6d 70 6c 65 74 69 6f 6e | 2d 74 6f 2d 68 65 61 64 |mpletion|-to-head|
|00003ca0| 20 23 5b 28 73 74 72 69 | 6e 67 29 20 22 08 83 07 | #[(stri|ng) "...|
|00003cb0| 00 c1 20 88 c2 0b 21 89 | 14 83 4c 00 c5 0e 06 c7 |.. ...!.|..L.....|
|00003cc0| 0e 08 4f 21 1e 09 ca 5c | 66 0e 09 5c 22 89 1e 0b |..O!...\|f..\"...|
|00003cd0| 41 1e 5c 66 5c 66 0b a0 | 88 0e 0b 83 49 00 0e 0b |A.\f\f..|....I...|
|00003ce0| 0e 5c 66 41 a1 84 3c 00 | 0e 09 0e 0b a1 88 0e 5c |.\fA..<.|.......\|
|00003cf0| 66 0e 09 40 a1 88 0e 09 | 0e 5c 66 a0 88 5c 66 2b |f..@....|.\f..\f+|
|00003d00| 87 cd 0b 21 c5 0e 06 c7 | 0e 08 4f 21 1e 09 1e 0e |...!....|..O!....|
|00003d10| 0e 09 83 70 00 0e 0e 0e | 09 40 a1 88 0e 09 0e 0e |...p....|.@......|
|00003d20| a0 88 82 78 00 0e 0f d0 | 0e 0e 21 4c 88 0e 11 0e |...x....|..!L....|
|00003d30| 0e 40 4c 2a 87 22 20 5b | 63 6f 6d 70 6c 65 74 69 |.@L*." [|completi|
|00003d40| 6f 6e 2d 74 6f 2d 61 63 | 63 65 70 74 20 61 63 63 |on-to-ac|cept acc|
|00003d50| 65 70 74 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 66 |ept-comp|letion f|
|00003d60| 69 6e 64 2d 65 78 61 63 | 74 2d 63 6f 6d 70 6c 65 |ind-exac|t-comple|
|00003d70| 74 69 6f 6e 20 73 74 72 | 69 6e 67 20 63 6d 70 6c |tion str|ing cmpl|
|00003d80| 2d 64 62 2d 65 6e 74 72 | 79 20 66 69 6e 64 2d 63 |-db-entr|y find-c|
|00003d90| 6d 70 6c 2d 70 72 65 66 | 69 78 2d 65 6e 74 72 79 |mpl-pref|ix-entry|
|00003da0| 20 63 6d 70 6c 2d 64 62 | 2d 64 6f 77 6e 63 61 73 | cmpl-db|-downcas|
|00003db0| 65 2d 73 74 72 69 6e 67 | 20 30 20 63 6f 6d 70 6c |e-string| 0 compl|
|00003dc0| 65 74 69 6f 6e 2d 70 72 | 65 66 69 78 2d 6d 69 6e |etion-pr|efix-min|
|00003dd0| 2d 6c 65 6e 67 74 68 20 | 70 72 65 66 69 78 2d 65 |-length |prefix-e|
|00003de0| 6e 74 72 79 20 6c 6f 63 | 61 74 65 2d 63 6f 6d 70 |ntry loc|ate-comp|
|00003df0| 6c 65 74 69 6f 6e 2d 65 | 6e 74 72 79 20 73 70 6c |letion-e|ntry spl|
|00003e00| 69 63 65 2d 70 74 72 20 | 63 6d 70 6c 2d 70 74 72 |ice-ptr |cmpl-ptr|
|00003e10| 20 6d 61 6b 65 2d 63 6f | 6d 70 6c 65 74 69 6f 6e | make-co|mpletion|
|00003e20| 20 65 6e 74 72 79 20 63 | 6d 70 6c 2d 64 62 2d 70 | entry c|mpl-db-p|
|00003e30| 72 65 66 69 78 2d 73 79 | 6d 62 6f 6c 20 6d 61 6b |refix-sy|mbol mak|
|00003e40| 65 2d 63 6d 70 6c 2d 70 | 72 65 66 69 78 2d 65 6e |e-cmpl-p|refix-en|
|00003e50| 74 72 79 20 63 6d 70 6c | 2d 64 62 2d 73 79 6d 62 |try cmpl|-db-symb|
|00003e60| 6f 6c 5d 20 36 20 22 5c | 0a 49 66 20 53 54 52 49 |ol] 6 "\|.If STRI|
|00003e70| 4e 47 20 69 73 20 6e 6f | 74 20 69 6e 20 74 68 65 |NG is no|t in the|
|00003e80| 20 64 61 74 61 62 61 73 | 65 2c 20 61 64 64 20 69 | databas|e, add i|
|00003e90| 74 20 74 6f 20 70 72 65 | 66 69 78 20 6c 69 73 74 |t to pre|fix list|
|00003ea0| 2e 0a 53 54 52 49 4e 47 | 20 69 73 20 61 64 64 65 |..STRING| is adde|
|00003eb0| 64 20 74 6f 20 74 68 65 | 20 68 65 61 64 20 6f 66 |d to the| head of|
|00003ec0| 20 74 68 65 20 61 70 70 | 72 6f 70 72 69 61 74 65 | the app|ropriate|
|00003ed0| 20 70 72 65 66 69 78 20 | 6c 69 73 74 2e 20 20 4f | prefix |list.  O|
|00003ee0| 74 68 65 72 77 69 73 65 | 0a 69 74 20 69 73 20 6d |therwise|.it is m|
|00003ef0| 6f 76 65 64 20 74 6f 20 | 74 68 65 20 68 65 61 64 |oved to |the head|
|00003f00| 20 6f 66 20 74 68 65 20 | 6c 69 73 74 2e 0a 53 54 | of the |list..ST|
|00003f10| 52 49 4e 47 20 6d 75 73 | 74 20 62 65 20 6c 6f 6e |RING mus|t be lon|
|00003f20| 67 65 72 20 74 68 61 6e | 20 60 63 6f 6d 70 6c 65 |ger than| `comple|
|00003f30| 74 69 6f 6e 2d 70 72 65 | 66 69 78 2d 6d 69 6e 2d |tion-pre|fix-min-|
|00003f40| 6c 65 6e 67 74 68 27 2e | 0a 55 70 64 61 74 65 73 |length'.|.Updates|
|00003f50| 20 74 68 65 20 73 61 76 | 65 64 20 73 74 72 69 6e | the sav|ed strin|
|00003f60| 67 20 77 69 74 68 20 74 | 68 65 20 73 75 70 70 6c |g with t|he suppl|
|00003f70| 69 65 64 20 73 74 72 69 | 6e 67 2e 0a 54 68 69 73 |ied stri|ng..This|
|00003f80| 20 6d 75 73 74 20 62 65 | 20 76 65 72 79 20 66 61 | must be| very fa|
|00003f90| 73 74 2e 0a 52 65 74 75 | 72 6e 73 20 74 68 65 20 |st..Retu|rns the |
|00003fa0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 65 6e 74 72 79 |completi|on entry|
|00003fb0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00003fc0| 64 65 6c 65 74 65 2d 63 | 6f 6d 70 6c 65 74 69 6f |delete-c|ompletio|
|00003fd0| 6e 20 23 5b 28 73 74 72 | 69 6e 67 29 20 22 08 83 |n #[(str|ing) "..|
|00003fe0| 07 00 c1 20 88 c2 0b 21 | 89 14 83 4d 00 c5 0e 06 |... ...!|...M....|
|00003ff0| c7 0e 08 4f 21 1e 09 ca | 5c 66 0e 09 5c 22 1e 0b |...O!...|\f..\"..|
|00004000| 0e 5c 66 cd 4c 88 0e 0b | 83 3c 00 0e 0b 89 41 41 |.\f.L...|.<....AA|
|00004010| a1 84 4a 00 0e 09 0e 0b | a1 88 82 4a 00 0e 09 89 |..J.....|...J....|
|00004020| 40 41 a0 84 4a 00 0e 0e | cd 4c 88 2a cd 87 cf d0 |@A..J...|.L.*....|
|00004030| 0b 5c 22 87 22 20 5b 63 | 6f 6d 70 6c 65 74 69 6f |.\"." [c|ompletio|
|00004040| 6e 2d 74 6f 2d 61 63 63 | 65 70 74 20 61 63 63 65 |n-to-acc|ept acce|
|00004050| 70 74 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 20 66 69 |pt-compl|etion fi|
|00004060| 6e 64 2d 65 78 61 63 74 | 2d 63 6f 6d 70 6c 65 74 |nd-exact|-complet|
|00004070| 69 6f 6e 20 73 74 72 69 | 6e 67 20 63 6d 70 6c 2d |ion stri|ng cmpl-|
|00004080| 64 62 2d 65 6e 74 72 79 | 20 66 69 6e 64 2d 63 6d |db-entry| find-cm|
|00004090| 70 6c 2d 70 72 65 66 69 | 78 2d 65 6e 74 72 79 20 |pl-prefi|x-entry |
|000040a0| 63 6d 70 6c 2d 64 62 2d | 64 6f 77 6e 63 61 73 65 |cmpl-db-|downcase|
|000040b0| 2d 73 74 72 69 6e 67 20 | 30 20 63 6f 6d 70 6c 65 |-string |0 comple|
|000040c0| 74 69 6f 6e 2d 70 72 65 | 66 69 78 2d 6d 69 6e 2d |tion-pre|fix-min-|
|000040d0| 6c 65 6e 67 74 68 20 70 | 72 65 66 69 78 2d 65 6e |length p|refix-en|
|000040e0| 74 72 79 20 6c 6f 63 61 | 74 65 2d 63 6f 6d 70 6c |try loca|te-compl|
|000040f0| 65 74 69 6f 6e 2d 65 6e | 74 72 79 20 73 70 6c 69 |etion-en|try spli|
|00004100| 63 65 2d 70 74 72 20 63 | 6d 70 6c 2d 64 62 2d 73 |ce-ptr c|mpl-db-s|
|00004110| 79 6d 62 6f 6c 20 6e 69 | 6c 20 63 6d 70 6c 2d 64 |ymbol ni|l cmpl-d|
|00004120| 62 2d 70 72 65 66 69 78 | 2d 73 79 6d 62 6f 6c 20 |b-prefix|-symbol |
|00004130| 65 72 72 6f 72 20 22 55 | 6e 6b 6e 6f 77 6e 20 63 |error "U|nknown c|
|00004140| 6f 6d 70 6c 65 74 69 6f | 6e 3a 20 25 73 2e 20 20 |ompletio|n: %s.  |
|00004150| 43 6f 75 6c 64 6e 27 74 | 20 64 65 6c 65 74 65 20 |Couldn't| delete |
|00004160| 69 74 2e 22 5d 20 34 20 | 22 5c 0a 44 65 6c 65 74 |it."] 4 |"\.Delet|
|00004170| 65 73 20 74 68 65 20 63 | 6f 6d 70 6c 65 74 69 6f |es the c|ompletio|
|00004180| 6e 20 66 72 6f 6d 20 74 | 68 65 20 64 61 74 61 62 |n from t|he datab|
|00004190| 61 73 65 2e 0a 53 74 72 | 69 6e 67 20 6d 75 73 74 |ase..Str|ing must|
|000041a0| 20 62 65 20 6c 6f 6e 67 | 65 72 20 74 68 61 6e 20 | be long|er than |
|000041b0| 60 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 70 72 65 66 |`complet|ion-pref|
|000041c0| 69 78 2d 6d 69 6e 2d 6c | 65 6e 67 74 68 27 2e 22 |ix-min-l|ength'."|
|000041d0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|000041e0| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 87 22 20 5b 64 65 |..\"....|\"." [de|
|000041f0| 66 61 6c 69 61 73 20 69 | 6e 74 65 72 61 63 74 69 |falias i|nteracti|
|00004200| 76 65 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 73 74 |ve-compl|etion-st|
|00004210| 72 69 6e 67 2d 72 65 61 | 64 65 72 20 23 5b 28 70 |ring-rea|der #[(p|
|00004220| 72 6f 6d 70 74 29 20 22 | c0 20 89 19 83 0f 00 c2 |rompt) "|. ......|
|00004230| c3 5c 66 09 23 82 13 00 | c2 c5 5c 66 5c 22 1e 06 |.\f.#...|..\f\"..|
|00004240| c7 0e 06 0e 08 5c 22 89 | 1e 09 47 ca 55 83 2b 00 |.....\".|..G.U.+.|
|00004250| 09 86 29 00 cb 16 09 0e | 09 2b 43 87 22 20 5b 73 |..).....|.+C." [s|
|00004260| 79 6d 62 6f 6c 2d 75 6e | 64 65 72 2d 6f 72 2d 62 |ymbol-un|der-or-b|
|00004270| 65 66 6f 72 65 2d 70 6f | 69 6e 74 20 64 65 66 61 |efore-po|int defa|
|00004280| 75 6c 74 20 66 6f 72 6d | 61 74 20 22 25 73 3a 20 |ult form|at "%s: |
|00004290| 28 64 65 66 61 75 6c 74 | 3a 20 25 73 29 20 22 20 |(default|: %s) " |
|000042a0| 70 72 6f 6d 70 74 20 22 | 25 73 3a 20 22 20 6e 65 |prompt "|%s: " ne|
|000042b0| 77 2d 70 72 6f 6d 70 74 | 20 63 6f 6d 70 6c 65 74 |w-prompt| complet|
|000042c0| 69 6e 67 2d 72 65 61 64 | 20 63 6d 70 6c 2d 6f 62 |ing-read| cmpl-ob|
|000042d0| 61 72 72 61 79 20 72 65 | 61 64 20 30 20 22 22 5d |array re|ad 0 ""]|
|000042e0| 20 35 5d 20 63 68 65 63 | 6b 2d 63 6f 6d 70 6c 65 | 5] chec|k-comple|
|000042f0| 74 69 6f 6e 2d 6c 65 6e | 67 74 68 20 23 5b 28 73 |tion-len|gth #[(s|
|00004300| 74 72 69 6e 67 29 20 22 | 08 47 09 57 83 5c 66 00 |tring) "|.G.W.\f.|
|00004310| c2 c3 08 5c 22 87 08 43 | 87 22 20 5b 73 74 72 69 |...\"..C|." [stri|
|00004320| 6e 67 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6d 69 |ng compl|etion-mi|
|00004330| 6e 2d 6c 65 6e 67 74 68 | 20 65 72 72 6f 72 20 22 |n-length| error "|
|00004340| 54 68 65 20 73 74 72 69 | 6e 67 20 5c 22 25 73 5c |The stri|ng \"%s\|
|00004350| 22 20 69 73 20 74 6f 6f | 20 73 68 6f 72 74 20 74 |" is too| short t|
|00004360| 6f 20 62 65 20 73 61 76 | 65 64 20 61 73 20 61 20 |o be sav|ed as a |
|00004370| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2e 22 5d 20 33 5d |completi|on."] 3]|
|00004380| 5d 20 33 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 3).(de|falias '|
|00004390| 61 64 64 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 23 |add-comp|letion #|
|000043a0| 5b 28 73 74 72 69 6e 67 | 20 26 6f 70 74 69 6f 6e |[(string| &option|
|000043b0| 61 6c 20 6e 75 6d 2d 75 | 73 65 73 20 6c 61 73 74 |al num-u|ses last|
|000043c0| 2d 75 73 65 2d 74 69 6d | 65 29 20 22 c0 09 21 88 |-use-tim|e) "..!.|
|000043d0| 74 83 5c 66 00 5c 6e 82 | 0d 00 0b 1b c4 09 21 1d |t.\f.\n.|......!.|
|000043e0| 0e 06 83 1d 00 0d 41 0e | 06 a0 88 0e 07 85 28 00 |......A.|......(.|
|000043f0| 0d 41 41 0e 07 a0 2a 87 | 22 20 5b 63 68 65 63 6b |.AA...*.|" [check|
|00004400| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 6c 65 6e 67 |-complet|ion-leng|
|00004410| 74 68 20 73 74 72 69 6e | 67 20 63 6d 70 6c 2d 73 |th strin|g cmpl-s|
|00004420| 6f 75 72 63 65 2d 69 6e | 74 65 72 61 63 74 69 76 |ource-in|teractiv|
|00004430| 65 20 63 75 72 72 65 6e | 74 2d 63 6f 6d 70 6c 65 |e curren|t-comple|
|00004440| 74 69 6f 6e 2d 73 6f 75 | 72 63 65 20 61 64 64 2d |tion-sou|rce add-|
|00004450| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 74 6f 2d 68 65 |completi|on-to-he|
|00004460| 61 64 20 65 6e 74 72 79 | 20 6e 75 6d 2d 75 73 65 |ad entry| num-use|
|00004470| 73 20 6c 61 73 74 2d 75 | 73 65 2d 74 69 6d 65 5d |s last-u|se-time]|
|00004480| 20 32 20 22 5c 0a 41 64 | 64 20 53 54 52 49 4e 47 | 2 "\.Ad|d STRING|
|00004490| 20 74 6f 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 6c | to comp|letion l|
|000044a0| 69 73 74 2c 20 6f 72 20 | 6d 6f 76 65 20 69 74 20 |ist, or |move it |
|000044b0| 74 6f 20 68 65 61 64 20 | 6f 66 20 6c 69 73 74 2e |to head |of list.|
|000044c0| 0a 54 68 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |.The com|pletion |
|000044d0| 69 73 20 61 6c 74 65 72 | 65 64 20 61 70 70 72 6f |is alter|ed appro|
|000044e0| 70 72 69 61 74 65 6c 79 | 20 69 66 20 6e 75 6d 2d |priately| if num-|
|000044f0| 75 73 65 73 20 61 6e 64 | 2f 6f 72 20 6c 61 73 74 |uses and|/or last|
|00004500| 2d 75 73 65 2d 74 69 6d | 65 20 69 73 20 0a 73 70 |-use-tim|e is .sp|
|00004510| 65 63 69 66 69 65 64 2e | 22 20 28 69 6e 74 65 72 |ecified.|" (inter|
|00004520| 61 63 74 69 76 65 2d 63 | 6f 6d 70 6c 65 74 69 6f |active-c|ompletio|
|00004530| 6e 2d 73 74 72 69 6e 67 | 2d 72 65 61 64 65 72 20 |n-string|-reader |
|00004540| 22 43 6f 6d 70 6c 65 74 | 69 6f 6e 20 74 6f 20 61 |"Complet|ion to a|
|00004550| 64 64 22 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |dd")]).(|defalias|
|00004560| 20 27 61 64 64 2d 70 65 | 72 6d 61 6e 65 6e 74 2d | 'add-pe|rmanent-|
|00004570| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 23 5b 28 73 74 |completi|on #[(st|
|00004580| 72 69 6e 67 29 20 22 74 | 83 08 00 08 82 09 00 09 |ring) "t|........|
|00004590| 19 c2 0b c4 c5 23 29 87 | 22 20 5b 63 6d 70 6c 2d |.....#).|" [cmpl-|
|000045a0| 73 6f 75 72 63 65 2d 69 | 6e 74 65 72 61 63 74 69 |source-i|nteracti|
|000045b0| 76 65 20 63 75 72 72 65 | 6e 74 2d 63 6f 6d 70 6c |ve curre|nt-compl|
|000045c0| 65 74 69 6f 6e 2d 73 6f | 75 72 63 65 20 61 64 64 |etion-so|urce add|
|000045d0| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 73 74 72 69 |-complet|ion stri|
|000045e0| 6e 67 20 6e 69 6c 20 74 | 5d 20 34 20 22 5c 0a 41 |ng nil t|] 4 "\.A|
|000045f0| 64 64 20 53 54 52 49 4e | 47 20 69 66 20 69 74 20 |dd STRIN|G if it |
|00004600| 69 73 6e 27 74 20 61 6c | 72 65 61 64 79 20 6c 69 |isn't al|ready li|
|00004610| 73 74 65 64 2c 20 61 6e | 64 20 6d 61 72 6b 20 69 |sted, an|d mark i|
|00004620| 74 20 70 65 72 6d 61 6e | 65 6e 74 2e 22 20 28 69 |t perman|ent." (i|
|00004630| 6e 74 65 72 61 63 74 69 | 76 65 2d 63 6f 6d 70 6c |nteracti|ve-compl|
|00004640| 65 74 69 6f 6e 2d 73 74 | 72 69 6e 67 2d 72 65 61 |etion-st|ring-rea|
|00004650| 64 65 72 20 22 43 6f 6d | 70 6c 65 74 69 6f 6e 20 |der "Com|pletion |
|00004660| 74 6f 20 61 64 64 20 70 | 65 72 6d 61 6e 65 6e 74 |to add p|ermanent|
|00004670| 6c 79 22 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ly")]).(|defalias|
|00004680| 20 28 71 75 6f 74 65 20 | 6b 69 6c 6c 2d 63 6f 6d | (quote |kill-com|
|00004690| 70 6c 65 74 69 6f 6e 29 | 20 23 5b 28 73 74 72 69 |pletion)| #[(stri|
|000046a0| 6e 67 29 20 22 c0 09 21 | 88 c2 09 21 87 22 20 5b |ng) "..!|...!." [|
|000046b0| 63 68 65 63 6b 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |check-co|mpletion|
|000046c0| 2d 6c 65 6e 67 74 68 20 | 73 74 72 69 6e 67 20 64 |-length |string d|
|000046d0| 65 6c 65 74 65 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |elete-co|mpletion|
|000046e0| 5d 20 32 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |] 2 nil |(interac|
|000046f0| 74 69 76 65 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |tive-com|pletion-|
|00004700| 73 74 72 69 6e 67 2d 72 | 65 61 64 65 72 20 22 43 |string-r|eader "C|
|00004710| 6f 6d 70 6c 65 74 69 6f | 6e 20 74 6f 20 6b 69 6c |ompletio|n to kil|
|00004720| 6c 22 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |l")]).(d|efalias |
|00004730| 27 61 63 63 65 70 74 2d | 63 6f 6d 70 6c 65 74 69 |'accept-|completi|
|00004740| 6f 6e 20 23 5b 6e 69 6c | 20 22 08 09 c2 1b 1c 1d |on #[nil| "......|
|00004750| c2 10 c6 0d 21 89 13 41 | 0b 41 40 54 a0 88 c7 89 |....!..A|.A@T....|
|00004760| 16 08 2b 87 22 20 5b 63 | 6f 6d 70 6c 65 74 69 6f |..+." [c|ompletio|
|00004770| 6e 2d 74 6f 2d 61 63 63 | 65 70 74 20 63 6d 70 6c |n-to-acc|ept cmpl|
|00004780| 2d 73 6f 75 72 63 65 2d | 63 64 61 62 62 72 65 76 |-source-|cdabbrev|
|00004790| 20 6e 69 6c 20 65 6e 74 | 72 79 20 63 75 72 72 65 | nil ent|ry curre|
|000047a0| 6e 74 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 73 6f |nt-compl|etion-so|
|000047b0| 75 72 63 65 20 73 74 72 | 69 6e 67 20 61 64 64 2d |urce str|ing add-|
|000047c0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 74 6f 2d 68 65 |completi|on-to-he|
|000047d0| 61 64 20 74 20 63 6d 70 | 6c 2d 63 6f 6d 70 6c 65 |ad t cmp|l-comple|
|000047e0| 74 69 6f 6e 73 2d 61 63 | 63 65 70 74 65 64 2d 70 |tions-ac|cepted-p|
|000047f0| 5d 20 34 20 22 5c 0a 41 | 63 63 65 70 74 73 20 74 |] 4 "\.A|ccepts t|
|00004800| 68 65 20 70 65 6e 64 69 | 6e 67 20 63 6f 6d 70 6c |he pendi|ng compl|
|00004810| 65 74 69 6f 6e 20 69 6e | 20 60 63 6f 6d 70 6c 65 |etion in| `comple|
|00004820| 74 69 6f 6e 2d 74 6f 2d | 61 63 63 65 70 74 27 2e |tion-to-|accept'.|
|00004830| 0a 54 68 69 73 20 62 75 | 6d 70 73 20 6e 75 6d 2d |.This bu|mps num-|
|00004840| 75 73 65 73 2e 20 20 43 | 61 6c 6c 65 64 20 62 79 |uses.  C|alled by|
|00004850| 20 60 61 64 64 2d 63 6f | 6d 70 6c 65 74 69 6f 6e | `add-co|mpletion|
|00004860| 2d 74 6f 2d 68 65 61 64 | 27 20 61 6e 64 20 0a 60 |-to-head|' and .`|
|00004870| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 73 65 61 72 63 |completi|on-searc|
|00004880| 68 2d 72 65 73 65 74 27 | 2e 22 5d 29 0a 28 64 65 |h-reset'|."]).(de|
|00004890| 66 61 6c 69 61 73 20 27 | 75 73 65 2d 63 6f 6d 70 |falias '|use-comp|
|000048a0| 6c 65 74 69 6f 6e 2d 75 | 6e 64 65 72 2d 70 6f 69 |letion-u|nder-poi|
|000048b0| 6e 74 20 23 5b 6e 69 6c | 20 22 08 85 06 00 c1 20 |nt #[nil| "..... |
|000048c0| 5c 6e 1b 89 1c 85 10 00 | c5 5c 66 21 2a 87 22 20 |\n......|.\f!*." |
|000048d0| 5b 65 6e 61 62 6c 65 2d | 63 6f 6d 70 6c 65 74 69 |[enable-|completi|
|000048e0| 6f 6e 20 73 79 6d 62 6f | 6c 2d 75 6e 64 65 72 2d |on symbo|l-under-|
|000048f0| 70 6f 69 6e 74 20 63 6d | 70 6c 2d 73 6f 75 72 63 |point cm|pl-sourc|
|00004900| 65 2d 63 75 72 73 6f 72 | 2d 6d 6f 76 65 73 20 63 |e-cursor|-moves c|
|00004910| 75 72 72 65 6e 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |urrent-c|ompletio|
|00004920| 6e 2d 73 6f 75 72 63 65 | 20 73 74 72 69 6e 67 20 |n-source| string |
|00004930| 61 64 64 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 74 |add-comp|letion-t|
|00004940| 6f 2d 68 65 61 64 5d 20 | 33 20 22 5c 0a 41 64 64 |o-head] |3 "\.Add|
|00004950| 20 74 68 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 | the com|pletion |
|00004960| 73 79 6d 62 6f 6c 20 75 | 6e 64 65 72 6e 65 61 74 |symbol u|nderneat|
|00004970| 68 20 74 68 65 20 70 6f | 69 6e 74 20 69 6e 74 6f |h the po|int into|
|00004980| 20 74 68 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 | the com|pletion |
|00004990| 62 75 66 66 65 72 2e 22 | 5d 29 0a 28 64 65 66 61 |buffer."|]).(defa|
|000049a0| 6c 69 61 73 20 27 75 73 | 65 2d 63 6f 6d 70 6c 65 |lias 'us|e-comple|
|000049b0| 74 69 6f 6e 2d 62 65 66 | 6f 72 65 2d 70 6f 69 6e |tion-bef|ore-poin|
|000049c0| 74 20 23 5b 6e 69 6c 20 | 22 08 85 06 00 c1 20 5c |t #[nil |"..... \|
|000049d0| 6e 1b 89 1c 85 10 00 c5 | 5c 66 21 2a 87 22 20 5b |n.......|\f!*." [|
|000049e0| 65 6e 61 62 6c 65 2d 63 | 6f 6d 70 6c 65 74 69 6f |enable-c|ompletio|
|000049f0| 6e 20 73 79 6d 62 6f 6c | 2d 62 65 66 6f 72 65 2d |n symbol|-before-|
|00004a00| 70 6f 69 6e 74 20 63 6d | 70 6c 2d 73 6f 75 72 63 |point cm|pl-sourc|
|00004a10| 65 2d 63 75 72 73 6f 72 | 2d 6d 6f 76 65 73 20 63 |e-cursor|-moves c|
|00004a20| 75 72 72 65 6e 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |urrent-c|ompletio|
|00004a30| 6e 2d 73 6f 75 72 63 65 | 20 73 74 72 69 6e 67 20 |n-source| string |
|00004a40| 61 64 64 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 74 |add-comp|letion-t|
|00004a50| 6f 2d 68 65 61 64 5d 20 | 33 20 22 5c 0a 41 64 64 |o-head] |3 "\.Add|
|00004a60| 20 74 68 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 | the com|pletion |
|00004a70| 73 79 6d 62 6f 6c 20 62 | 65 66 6f 72 65 20 70 6f |symbol b|efore po|
|00004a80| 69 6e 74 20 69 6e 74 6f | 20 74 68 65 20 63 6f 6d |int into| the com|
|00004a90| 70 6c 65 74 69 6f 6e 20 | 62 75 66 66 65 72 2e 22 |pletion |buffer."|
|00004aa0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 73 |]).(defa|lias 'us|
|00004ab0| 65 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 75 6e 64 |e-comple|tion-und|
|00004ac0| 65 72 2d 6f 72 2d 62 65 | 66 6f 72 65 2d 70 6f 69 |er-or-be|fore-poi|
|00004ad0| 6e 74 20 23 5b 6e 69 6c | 20 22 08 85 06 00 c1 20 |nt #[nil| "..... |
|00004ae0| 5c 6e 1b 89 1c 85 10 00 | c5 5c 66 21 2a 87 22 20 |\n......|.\f!*." |
|00004af0| 5b 65 6e 61 62 6c 65 2d | 63 6f 6d 70 6c 65 74 69 |[enable-|completi|
|00004b00| 6f 6e 20 73 79 6d 62 6f | 6c 2d 75 6e 64 65 72 2d |on symbo|l-under-|
|00004b10| 6f 72 2d 62 65 66 6f 72 | 65 2d 70 6f 69 6e 74 20 |or-befor|e-point |
|00004b20| 63 6d 70 6c 2d 73 6f 75 | 72 63 65 2d 63 75 72 73 |cmpl-sou|rce-curs|
|00004b30| 6f 72 2d 6d 6f 76 65 73 | 20 63 75 72 72 65 6e 74 |or-moves| current|
|00004b40| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 73 6f 75 72 |-complet|ion-sour|
|00004b50| 63 65 20 73 74 72 69 6e | 67 20 61 64 64 2d 63 6f |ce strin|g add-co|
|00004b60| 6d 70 6c 65 74 69 6f 6e | 2d 74 6f 2d 68 65 61 64 |mpletion|-to-head|
|00004b70| 5d 20 33 20 22 5c 0a 41 | 64 64 20 74 68 65 20 63 |] 3 "\.A|dd the c|
|00004b80| 6f 6d 70 6c 65 74 69 6f | 6e 20 73 79 6d 62 6f 6c |ompletio|n symbol|
|00004b90| 20 62 65 66 6f 72 65 20 | 70 6f 69 6e 74 20 69 6e | before |point in|
|00004ba0| 74 6f 20 74 68 65 20 63 | 6f 6d 70 6c 65 74 69 6f |to the c|ompletio|
|00004bb0| 6e 20 62 75 66 66 65 72 | 2e 22 5d 29 0a 28 64 65 |n buffer|."]).(de|
|00004bc0| 66 61 6c 69 61 73 20 27 | 75 73 65 2d 63 6f 6d 70 |falias '|use-comp|
|00004bd0| 6c 65 74 69 6f 6e 2d 62 | 65 66 6f 72 65 2d 73 65 |letion-b|efore-se|
|00004be0| 70 61 72 61 74 6f 72 20 | 23 5b 6e 69 6c 20 22 08 |parator |#[nil ".|
|00004bf0| 85 06 00 c1 20 5c 6e c3 | 1c 1d 89 1e 06 85 2b 00 |.... \n.|......+.|
|00004c00| c7 0e 06 21 14 0e 08 85 | 2b 00 5c 66 41 40 c9 55 |...!....|+.\fA@.U|
|00004c10| 85 2b 00 5c 66 41 ca a0 | 88 cb 89 16 5c 66 2b 87 |.+.\fA..|....\f+.|
|00004c20| 22 20 5b 65 6e 61 62 6c | 65 2d 63 6f 6d 70 6c 65 |" [enabl|e-comple|
|00004c30| 74 69 6f 6e 20 73 79 6d | 62 6f 6c 2d 62 65 66 6f |tion sym|bol-befo|
|00004c40| 72 65 2d 70 6f 69 6e 74 | 20 63 6d 70 6c 2d 73 6f |re-point| cmpl-so|
|00004c50| 75 72 63 65 2d 73 65 70 | 61 72 61 74 6f 72 20 6e |urce-sep|arator n|
|00004c60| 69 6c 20 65 6e 74 72 79 | 20 63 75 72 72 65 6e 74 |il entry| current|
|00004c70| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 73 6f 75 72 |-complet|ion-sour|
|00004c80| 63 65 20 73 74 72 69 6e | 67 20 61 64 64 2d 63 6f |ce strin|g add-co|
|00004c90| 6d 70 6c 65 74 69 6f 6e | 2d 74 6f 2d 68 65 61 64 |mpletion|-to-head|
|00004ca0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 6f 6e 2d 73 | complet|ion-on-s|
|00004cb0| 65 70 61 72 61 74 6f 72 | 2d 63 68 61 72 61 63 74 |eparator|-charact|
|00004cc0| 65 72 20 30 20 31 20 74 | 20 63 6d 70 6c 2d 63 6f |er 0 1 t| cmpl-co|
|00004cd0| 6d 70 6c 65 74 69 6f 6e | 73 2d 61 63 63 65 70 74 |mpletion|s-accept|
|00004ce0| 65 64 2d 70 5d 20 34 20 | 22 5c 0a 41 64 64 20 74 |ed-p] 4 |"\.Add t|
|00004cf0| 68 65 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 73 79 |he compl|etion sy|
|00004d00| 6d 62 6f 6c 20 62 65 66 | 6f 72 65 20 70 6f 69 6e |mbol bef|ore poin|
|00004d10| 74 20 69 6e 74 6f 20 74 | 68 65 20 63 6f 6d 70 6c |t into t|he compl|
|00004d20| 65 74 69 6f 6e 20 62 75 | 66 66 65 72 2e 0a 43 6f |etion bu|ffer..Co|
|00004d30| 6d 70 6c 65 74 69 6f 6e | 73 20 61 64 64 65 64 20 |mpletion|s added |
|00004d40| 74 68 69 73 20 77 61 79 | 20 77 69 6c 6c 20 61 75 |this way| will au|
|00004d50| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 62 65 20 73 |tomatica|lly be s|
|00004d60| 61 76 65 64 20 69 66 0a | 60 63 6f 6d 70 6c 65 74 |aved if.|`complet|
|00004d70| 69 6f 6e 2d 6f 6e 2d 73 | 65 70 61 72 61 74 6f 72 |ion-on-s|eparator|
|00004d80| 2d 63 68 61 72 61 63 74 | 65 72 27 20 69 73 20 6e |-charact|er' is n|
|00004d90| 6f 6e 2d 6e 69 6c 2e 22 | 5d 29 0a 28 62 79 74 65 |on-nil."|]).(byte|
|00004da0| 2d 63 6f 64 65 20 22 c0 | c1 21 84 08 00 c2 11 c0 |-code ".|.!......|
|00004db0| c3 21 84 10 00 c2 13 c0 | c4 21 84 18 00 c5 14 c0 |.!......|.!......|
|00004dc0| c6 21 84 21 00 c7 16 06 | c0 c8 21 84 2a 00 c7 16 |.!.!....|..!.*...|
|00004dd0| 08 c0 c9 21 84 33 00 c7 | 16 09 c0 ca 21 84 3c 00 |...!.3..|....!.<.|
|00004de0| c7 16 5c 6e c0 cb 21 84 | 45 00 c7 16 0b c7 87 22 |..\n..!.|E......"|
|00004df0| 20 5b 62 6f 75 6e 64 70 | 20 63 6d 70 6c 2d 74 65 | [boundp| cmpl-te|
|00004e00| 73 74 2d 73 74 72 69 6e | 67 20 22 22 20 63 6d 70 |st-strin|g "" cmp|
|00004e10| 6c 2d 74 65 73 74 2d 72 | 65 67 65 78 70 20 63 6d |l-test-r|egexp cm|
|00004e20| 70 6c 2d 6c 61 73 74 2d | 69 6e 64 65 78 20 30 20 |pl-last-|index 0 |
|00004e30| 63 6d 70 6c 2d 63 64 61 | 62 62 72 65 76 2d 72 65 |cmpl-cda|bbrev-re|
|00004e40| 73 65 74 2d 70 20 6e 69 | 6c 20 63 6d 70 6c 2d 6e |set-p ni|l cmpl-n|
|00004e50| 65 78 74 2d 70 6f 73 73 | 69 62 69 6c 69 74 69 65 |ext-poss|ibilitie|
|00004e60| 73 20 63 6d 70 6c 2d 73 | 74 61 72 74 69 6e 67 2d |s cmpl-s|tarting-|
|00004e70| 70 6f 73 73 69 62 69 6c | 69 74 69 65 73 20 63 6d |possibil|ities cm|
|00004e80| 70 6c 2d 6e 65 78 74 2d | 70 6f 73 73 69 62 69 6c |pl-next-|possibil|
|00004e90| 69 74 79 20 63 6d 70 6c | 2d 74 72 69 65 64 2d 6c |ity cmpl|-tried-l|
|00004ea0| 69 73 74 5d 20 32 29 0a | 28 64 65 66 61 6c 69 61 |ist] 2).|(defalia|
|00004eb0| 73 20 27 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 73 65 |s 'compl|etion-se|
|00004ec0| 61 72 63 68 2d 72 65 73 | 65 74 20 23 5b 28 73 74 |arch-res|et #[(st|
|00004ed0| 72 69 6e 67 29 20 22 08 | 83 07 00 c1 20 88 c2 0b |ring) ".|.... ...|
|00004ee0| c4 0d 4f 97 21 40 16 06 | 0b 16 07 c8 0b 21 c9 50 |..O.!@..|.....!.P|
|00004ef0| 16 5c 6e cb 20 87 22 20 | 5b 63 6f 6d 70 6c 65 74 |.\n. ." |[complet|
|00004f00| 69 6f 6e 2d 74 6f 2d 61 | 63 63 65 70 74 20 61 63 |ion-to-a|ccept ac|
|00004f10| 63 65 70 74 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |cept-com|pletion |
|00004f20| 66 69 6e 64 2d 63 6d 70 | 6c 2d 70 72 65 66 69 78 |find-cmp|l-prefix|
|00004f30| 2d 65 6e 74 72 79 20 73 | 74 72 69 6e 67 20 30 20 |-entry s|tring 0 |
|00004f40| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 70 72 65 66 69 |completi|on-prefi|
|00004f50| 78 2d 6d 69 6e 2d 6c 65 | 6e 67 74 68 20 63 6d 70 |x-min-le|ngth cmp|
|00004f60| 6c 2d 73 74 61 72 74 69 | 6e 67 2d 70 6f 73 73 69 |l-starti|ng-possi|
|00004f70| 62 69 6c 69 74 69 65 73 | 20 63 6d 70 6c 2d 74 65 |bilities| cmpl-te|
|00004f80| 73 74 2d 73 74 72 69 6e | 67 20 72 65 67 65 78 70 |st-strin|g regexp|
|00004f90| 2d 71 75 6f 74 65 20 22 | 2e 22 20 63 6d 70 6c 2d |-quote "|." cmpl-|
|00004fa0| 74 65 73 74 2d 72 65 67 | 65 78 70 20 63 6f 6d 70 |test-reg|exp comp|
|00004fb0| 6c 65 74 69 6f 6e 2d 73 | 65 61 72 63 68 2d 72 65 |letion-s|earch-re|
|00004fc0| 73 65 74 2d 31 5d 20 34 | 20 22 5c 0a 53 65 74 20 |set-1] 4| "\.Set |
|00004fd0| 75 70 20 74 68 65 20 66 | 6f 72 20 63 6f 6d 70 6c |up the f|or compl|
|00004fe0| 65 74 69 6f 6e 20 73 65 | 61 72 63 68 69 6e 67 20 |etion se|arching |
|00004ff0| 66 6f 72 20 53 54 52 49 | 4e 47 2e 0a 53 54 52 49 |for STRI|NG..STRI|
|00005000| 4e 47 20 6d 75 73 74 20 | 62 65 20 6c 6f 6e 67 65 |NG must |be longe|
|00005010| 72 20 74 68 61 6e 20 60 | 63 6f 6d 70 6c 65 74 69 |r than `|completi|
|00005020| 6f 6e 2d 70 72 65 66 69 | 78 2d 6d 69 6e 2d 6c 65 |on-prefi|x-min-le|
|00005030| 6e 67 74 68 27 2e 22 5d | 29 0a 28 64 65 66 61 6c |ngth'."]|).(defal|
|00005040| 69 61 73 20 28 71 75 6f | 74 65 20 63 6f 6d 70 6c |ias (quo|te compl|
|00005050| 65 74 69 6f 6e 2d 73 65 | 61 72 63 68 2d 72 65 73 |etion-se|arch-res|
|00005060| 65 74 2d 31 29 20 23 5b | 6e 69 6c 20 22 08 11 c2 |et-1) #[|nil "...|
|00005070| 13 c2 14 c5 16 06 c2 89 | 16 07 87 22 20 5b 63 6d |........|..." [cm|
|00005080| 70 6c 2d 73 74 61 72 74 | 69 6e 67 2d 70 6f 73 73 |pl-start|ing-poss|
|00005090| 69 62 69 6c 69 74 69 65 | 73 20 63 6d 70 6c 2d 6e |ibilitie|s cmpl-n|
|000050a0| 65 78 74 2d 70 6f 73 73 | 69 62 69 6c 69 74 69 65 |ext-poss|ibilitie|
|000050b0| 73 20 6e 69 6c 20 63 6d | 70 6c 2d 6e 65 78 74 2d |s nil cm|pl-next-|
|000050c0| 70 6f 73 73 69 62 69 6c | 69 74 79 20 63 6d 70 6c |possibil|ity cmpl|
|000050d0| 2d 63 64 61 62 62 72 65 | 76 2d 72 65 73 65 74 2d |-cdabbre|v-reset-|
|000050e0| 70 20 2d 31 20 63 6d 70 | 6c 2d 6c 61 73 74 2d 69 |p -1 cmp|l-last-i|
|000050f0| 6e 64 65 78 20 63 6d 70 | 6c 2d 74 72 69 65 64 2d |ndex cmp|l-tried-|
|00005100| 6c 69 73 74 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |list] 2]|).(defal|
|00005110| 69 61 73 20 27 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ias 'com|pletion-|
|00005120| 73 65 61 72 63 68 2d 6e | 65 78 74 20 23 5b 28 69 |search-n|ext #[(i|
|00005130| 6e 64 65 78 29 20 22 08 | 09 54 89 11 55 83 10 00 |ndex) ".|.T..U...|
|00005140| c2 c3 21 88 82 71 00 08 | c4 57 83 57 00 c5 20 88 |..!..q..|.W.W.. .|
|00005150| 08 11 c6 0e 07 21 16 08 | c2 c9 21 83 36 00 08 54 |.....!..|..!.6..T|
|00005160| 89 10 c4 57 83 36 00 c9 | 16 5c 6e 82 21 00 0e 08 |...W.6..|.\n.!...|
|00005170| 83 71 00 09 cb 55 83 48 | 00 0e 07 16 08 82 71 00 |.q...U.H|......q.|
|00005180| 0e 07 47 0e 08 47 5a 0e | 07 9b 16 08 82 71 00 c5 |..G..GZ.|.....q..|
|00005190| 20 88 08 11 c2 c3 21 83 | 71 00 08 53 89 10 c4 57 | .....!.|q..S...W|
|000051a0| 84 71 00 c9 16 5c 6e 82 | 5c 5c 00 0e 5c 6e c9 16 |.q...\n.|\\..\n..|
|000051b0| 5c 6e 87 22 20 5b 69 6e | 64 65 78 20 63 6d 70 6c |\n." [in|dex cmpl|
|000051c0| 2d 6c 61 73 74 2d 69 6e | 64 65 78 20 63 6f 6d 70 |-last-in|dex comp|
|000051d0| 6c 65 74 69 6f 6e 2d 73 | 65 61 72 63 68 2d 70 65 |letion-s|earch-pe|
|000051e0| 65 6b 20 74 20 30 20 63 | 6f 6d 70 6c 65 74 69 6f |ek t 0 c|ompletio|
|000051f0| 6e 2d 73 65 61 72 63 68 | 2d 72 65 73 65 74 2d 31 |n-search|-reset-1|
|00005200| 20 72 65 76 65 72 73 65 | 20 63 6d 70 6c 2d 73 74 | reverse| cmpl-st|
|00005210| 61 72 74 69 6e 67 2d 70 | 6f 73 73 69 62 69 6c 69 |arting-p|ossibili|
|00005220| 74 69 65 73 20 63 6d 70 | 6c 2d 6e 65 78 74 2d 70 |ties cmp|l-next-p|
|00005230| 6f 73 73 69 62 69 6c 69 | 74 69 65 73 20 6e 69 6c |ossibili|ties nil|
|00005240| 20 63 6d 70 6c 2d 6e 65 | 78 74 2d 70 6f 73 73 69 | cmpl-ne|xt-possi|
|00005250| 62 69 6c 69 74 79 20 2d | 31 5d 20 33 20 22 5c 0a |bility -|1] 3 "\.|
|00005260| 52 65 74 75 72 6e 20 74 | 68 65 20 6e 65 78 74 20 |Return t|he next |
|00005270| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 65 6e 74 72 79 |completi|on entry|
|00005280| 2e 0a 49 66 20 49 4e 44 | 45 58 20 69 73 20 6f 75 |..If IND|EX is ou|
|00005290| 74 20 6f 66 20 73 65 71 | 75 65 6e 63 65 2c 20 72 |t of seq|uence, r|
|000052a0| 65 73 65 74 20 61 6e 64 | 20 73 74 61 72 74 20 66 |eset and| start f|
|000052b0| 72 6f 6d 20 74 68 65 20 | 74 6f 70 2e 0a 49 66 20 |rom the |top..If |
|000052c0| 74 68 65 72 65 20 61 72 | 65 20 6e 6f 20 6d 6f 72 |there ar|e no mor|
|000052d0| 65 20 65 6e 74 72 69 65 | 73 2c 20 74 72 79 20 63 |e entrie|s, try c|
|000052e0| 64 61 62 62 72 65 76 20 | 61 6e 64 20 72 65 74 75 |dabbrev |and retu|
|000052f0| 72 6e 73 20 6f 6e 6c 79 | 20 61 20 73 74 72 69 6e |rns only| a strin|
|00005300| 67 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |g."]).(d|efalias |
|00005310| 27 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 73 65 61 72 |'complet|ion-sear|
|00005320| 63 68 2d 70 65 65 6b 20 | 23 5b 28 75 73 65 2d 63 |ch-peek |#[(use-c|
|00005330| 64 61 62 62 72 65 76 29 | 20 22 08 86 43 00 09 83 |dabbrev)| "..C...|
|00005340| 2c 00 c2 0b 09 40 40 5c | 22 c4 3d 84 1a 00 09 41 |,....@@\|".=....A|
|00005350| 89 11 84 08 00 09 83 2c | 00 09 40 89 10 40 97 0d |.......,|..@..@..|
|00005360| 42 15 09 41 11 08 87 0e | 06 85 43 00 0e 07 84 3f |B..A....|..C....?|
|00005370| 00 c8 0e 09 0d 5c 22 88 | ca 16 07 cb 20 89 10 87 |.....\".|.... ...|
|00005380| 22 20 5b 63 6d 70 6c 2d | 6e 65 78 74 2d 70 6f 73 |" [cmpl-|next-pos|
|00005390| 73 69 62 69 6c 69 74 79 | 20 63 6d 70 6c 2d 6e 65 |sibility| cmpl-ne|
|000053a0| 78 74 2d 70 6f 73 73 69 | 62 69 6c 69 74 69 65 73 |xt-possi|bilities|
|000053b0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 63 6d | string-|match cm|
|000053c0| 70 6c 2d 74 65 73 74 2d | 72 65 67 65 78 70 20 30 |pl-test-|regexp 0|
|000053d0| 20 63 6d 70 6c 2d 74 72 | 69 65 64 2d 6c 69 73 74 | cmpl-tr|ied-list|
|000053e0| 20 75 73 65 2d 63 64 61 | 62 62 72 65 76 20 63 6d | use-cda|bbrev cm|
|000053f0| 70 6c 2d 63 64 61 62 62 | 72 65 76 2d 72 65 73 65 |pl-cdabb|rev-rese|
|00005400| 74 2d 70 20 72 65 73 65 | 74 2d 63 64 61 62 62 72 |t-p rese|t-cdabbr|
|00005410| 65 76 20 63 6d 70 6c 2d | 74 65 73 74 2d 73 74 72 |ev cmpl-|test-str|
|00005420| 69 6e 67 20 74 20 6e 65 | 78 74 2d 63 64 61 62 62 |ing t ne|xt-cdabb|
|00005430| 72 65 76 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |rev] 4 "|\.Return|
|00005440| 73 20 74 68 65 20 6e 65 | 78 74 20 63 6f 6d 70 6c |s the ne|xt compl|
|00005450| 65 74 69 6f 6e 20 65 6e | 74 72 79 20 77 69 74 68 |etion en|try with|
|00005460| 6f 75 74 20 61 63 74 75 | 61 6c 6c 79 20 6d 6f 76 |out actu|ally mov|
|00005470| 69 6e 67 20 74 68 65 20 | 70 6f 69 6e 74 65 72 73 |ing the |pointers|
|00005480| 2e 0a 43 61 6c 6c 69 6e | 67 20 74 68 69 73 20 61 |..Callin|g this a|
|00005490| 67 61 69 6e 20 6f 72 20 | 63 61 6c 6c 69 6e 67 20 |gain or |calling |
|000054a0| 60 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 73 65 61 72 |`complet|ion-sear|
|000054b0| 63 68 2d 6e 65 78 74 27 | 20 72 65 73 75 6c 74 73 |ch-next'| results|
|000054c0| 20 69 6e 20 74 68 65 20 | 73 61 6d 65 20 0a 73 74 | in the |same .st|
|000054d0| 72 69 6e 67 20 62 65 69 | 6e 67 20 72 65 74 75 72 |ring bei|ng retur|
|000054e0| 6e 65 64 2e 20 20 44 65 | 70 65 6e 64 73 20 6f 6e |ned.  De|pends on|
|000054f0| 20 60 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 | `case-f|old-sear|
|00005500| 63 68 27 2e 0a 49 66 20 | 74 68 65 72 65 20 61 72 |ch'..If |there ar|
|00005510| 65 20 6e 6f 20 6d 6f 72 | 65 20 65 6e 74 72 69 65 |e no mor|e entrie|
|00005520| 73 2c 20 74 72 79 20 63 | 64 61 62 62 72 65 76 20 |s, try c|dabbrev |
|00005530| 61 6e 64 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |and then| return |
|00005540| 6f 6e 6c 79 20 61 20 73 | 74 72 69 6e 67 2e 22 5d |only a s|tring."]|
|00005550| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |).(defal|ias 'com|
|00005560| 70 6c 65 74 69 6f 6e 2d | 6d 6f 64 65 20 23 5b 6e |pletion-|mode #[n|
|00005570| 69 6c 20 22 08 3f 10 c1 | c2 08 83 0d 00 c3 82 0e |il ".?..|........|
|00005580| 00 c4 5c 22 87 22 20 5b | 65 6e 61 62 6c 65 2d 63 |..\"." [|enable-c|
|00005590| 6f 6d 70 6c 65 74 69 6f | 6e 20 6d 65 73 73 61 67 |ompletio|n messag|
|000055a0| 65 20 22 43 6f 6d 70 6c | 65 74 69 6f 6e 20 6d 6f |e "Compl|etion mo|
|000055b0| 64 65 20 69 73 20 6e 6f | 77 20 25 73 2e 22 20 22 |de is no|w %s." "|
|000055c0| 4f 4e 22 20 22 4f 46 46 | 22 5d 20 33 20 22 5c 0a |ON" "OFF|"] 3 "\.|
|000055d0| 54 6f 67 67 6c 65 73 20 | 77 68 65 74 68 65 72 20 |Toggles |whether |
|000055e0| 6f 72 20 6e 6f 74 20 74 | 6f 20 61 64 64 20 6e 65 |or not t|o add ne|
|000055f0| 77 20 77 6f 72 64 73 20 | 74 6f 20 74 68 65 20 63 |w words |to the c|
|00005600| 6f 6d 70 6c 65 74 69 6f | 6e 20 64 61 74 61 62 61 |ompletio|n databa|
|00005610| 73 65 2e 22 20 6e 69 6c | 5d 29 0a 28 62 79 74 65 |se." nil|]).(byte|
|00005620| 2d 63 6f 64 65 20 22 c0 | c1 21 84 08 00 c2 11 c0 |-code ".|.!......|
|00005630| c3 21 84 10 00 c4 13 c0 | c5 21 84 18 00 c6 15 c0 |.!......|.!......|
|00005640| c7 21 84 21 00 c4 16 07 | c4 87 22 20 5b 62 6f 75 |.!.!....|.." [bou|
|00005650| 6e 64 70 20 63 6d 70 6c | 2d 63 75 72 72 65 6e 74 |ndp cmpl|-current|
|00005660| 2d 69 6e 64 65 78 20 30 | 20 63 6d 70 6c 2d 6f 72 |-index 0| cmpl-or|
|00005670| 69 67 69 6e 61 6c 2d 73 | 74 72 69 6e 67 20 6e 69 |iginal-s|tring ni|
|00005680| 6c 20 63 6d 70 6c 2d 6c | 61 73 74 2d 69 6e 73 65 |l cmpl-l|ast-inse|
|00005690| 72 74 2d 6c 6f 63 61 74 | 69 6f 6e 20 2d 31 20 63 |rt-locat|ion -1 c|
|000056a0| 6d 70 6c 2d 6c 65 61 76 | 65 2d 70 6f 69 6e 74 2d |mpl-leav|e-point-|
|000056b0| 61 74 2d 73 74 61 72 74 | 5d 20 32 29 0a 28 64 65 |at-start|] 2).(de|
|000056c0| 66 61 6c 69 61 73 20 27 | 63 6f 6d 70 6c 65 74 65 |falias '|complete|
|000056d0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|000056e0| 67 29 20 22 08 09 3d 83 | 15 00 5c 6e 60 7c 88 0b |g) "..=.|..\n`|..|
|000056f0| 5c 66 86 10 00 c5 5c 5c | 13 82 54 00 0e 06 84 1d |\f....\\|..T.....|
|00005700| 00 c7 20 88 0e 08 3a 83 | 2b 00 c9 14 ca 16 0b 82 |.. ...:.|+.......|
|00005710| 2e 00 cc 16 0b cd 20 89 | 16 0e 84 3e 00 cf 11 d0 |...... .|...>....|
|00005720| d1 0e 12 5c 22 88 0e 08 | 83 47 00 5c 66 82 48 00 |...\"...|.G.\f.H.|
|00005730| c9 13 d3 0e 0e 21 88 0e | 14 0e 15 7c 88 0e 16 0e |.....!..|...|....|
|00005740| 17 59 85 5f 00 d8 20 3f | 1e 19 60 1e 1a db 0b 21 |.Y._.. ?|..`....!|
|00005750| 1e 1c cc 1e 1d 0e 1c 83 | d6 00 0e 1c 3b 83 7c 00 |........|....;.|.|
|00005760| 0e 1c 82 7f 00 0e 1c 40 | 16 1d de 0e 1d 0e 0e 5c |.......@|.......\|
|00005770| 22 89 16 1d 63 88 0e 1d | 16 1f 0e 0b 83 9e 00 60 |"...c...|.......`|
|00005780| 12 0e 1a 62 88 82 a1 00 | 0e 1a 12 0e 19 85 fa 00 |...b....|........|
|00005790| e0 c9 21 85 fa 00 e1 0e | 5c 22 21 89 16 1c 85 fa |..!.....|\"!.....|
|000057a0| 00 0e 1c 3b 83 c1 00 0e | 1c 82 c4 00 0e 1c 40 16 |...;....|......@.|
|000057b0| 1d de 0e 1d 0e 0e 5c 22 | 16 1d e3 e4 0e 1d 5c 22 |......\"|......\"|
|000057c0| 82 fa 00 0e 0e 63 88 cc | 16 1f 0e 19 83 f7 00 e0 |.....c..|........|
|000057d0| c9 21 83 f7 00 e3 e5 09 | 08 3d 83 f4 00 e6 82 f5 |.!......|.=......|
|000057e0| 00 e7 5c 22 88 cf 89 11 | 2c 87 22 20 5b 6c 61 73 |..\"....|,." [las|
|000057f0| 74 2d 63 6f 6d 6d 61 6e | 64 20 74 68 69 73 2d 63 |t-comman|d this-c|
|00005800| 6f 6d 6d 61 6e 64 20 63 | 6d 70 6c 2d 6c 61 73 74 |ommand c|mpl-last|
|00005810| 2d 69 6e 73 65 72 74 2d | 6c 6f 63 61 74 69 6f 6e |-insert-|location|
|00005820| 20 63 6d 70 6c 2d 63 75 | 72 72 65 6e 74 2d 69 6e | cmpl-cu|rrent-in|
|00005830| 64 65 78 20 61 72 67 20 | 31 20 63 6d 70 6c 2d 69 |dex arg |1 cmpl-i|
|00005840| 6e 69 74 69 61 6c 69 7a | 65 64 2d 70 20 69 6e 69 |nitializ|ed-p ini|
|00005850| 74 69 61 6c 69 7a 65 2d | 63 6f 6d 70 6c 65 74 69 |tialize-|completi|
|00005860| 6f 6e 73 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |ons curr|ent-pref|
|00005870| 69 78 2d 61 72 67 20 30 | 20 74 20 63 6d 70 6c 2d |ix-arg 0| t cmpl-|
|00005880| 6c 65 61 76 65 2d 70 6f | 69 6e 74 2d 61 74 2d 73 |leave-po|int-at-s|
|00005890| 74 61 72 74 20 6e 69 6c | 20 73 79 6d 62 6f 6c 2d |tart nil| symbol-|
|000058a0| 62 65 66 6f 72 65 2d 70 | 6f 69 6e 74 2d 66 6f 72 |before-p|oint-for|
|000058b0| 2d 63 6f 6d 70 6c 65 74 | 65 20 63 6d 70 6c 2d 6f |-complet|e cmpl-o|
|000058c0| 72 69 67 69 6e 61 6c 2d | 73 74 72 69 6e 67 20 66 |riginal-|string f|
|000058d0| 61 69 6c 65 64 2d 63 6f | 6d 70 6c 65 74 65 20 65 |ailed-co|mplete e|
|000058e0| 72 72 6f 72 20 22 54 6f | 20 63 6f 6d 70 6c 65 74 |rror "To| complet|
|000058f0| 65 2c 20 74 68 65 20 70 | 6f 69 6e 74 20 6d 75 73 |e, the p|oint mus|
|00005900| 74 20 62 65 20 61 66 74 | 65 72 20 61 20 73 79 6d |t be aft|er a sym|
|00005910| 62 6f 6c 20 61 74 20 6c | 65 61 73 74 20 25 64 20 |bol at l|east %d |
|00005920| 63 68 61 72 61 63 74 65 | 72 20 6c 6f 6e 67 2e 22 |characte|r long."|
|00005930| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 70 72 65 66 | complet|ion-pref|
|00005940| 69 78 2d 6d 69 6e 2d 6c | 65 6e 67 74 68 20 63 6f |ix-min-l|ength co|
|00005950| 6d 70 6c 65 74 69 6f 6e | 2d 73 65 61 72 63 68 2d |mpletion|-search-|
|00005960| 72 65 73 65 74 20 63 6d | 70 6c 2d 73 79 6d 62 6f |reset cm|pl-symbo|
|00005970| 6c 2d 73 74 61 72 74 20 | 63 6d 70 6c 2d 73 79 6d |l-start |cmpl-sym|
|00005980| 62 6f 6c 2d 65 6e 64 20 | 62 61 75 64 2d 72 61 74 |bol-end |baud-rat|
|00005990| 65 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 70 72 6f |e comple|tion-pro|
|000059a0| 6d 70 74 2d 73 70 65 65 | 64 2d 74 68 72 65 73 68 |mpt-spee|d-thresh|
|000059b0| 6f 6c 64 20 6d 69 6e 69 | 62 75 66 66 65 72 2d 77 |old mini|buffer-w|
|000059c0| 69 6e 64 6f 77 2d 73 65 | 6c 65 63 74 65 64 2d 70 |indow-se|lected-p|
|000059d0| 20 70 72 69 6e 74 2d 73 | 74 61 74 75 73 2d 70 20 | print-s|tatus-p |
|000059e0| 69 6e 73 65 72 74 2d 70 | 6f 69 6e 74 20 63 6f 6d |insert-p|oint com|
|000059f0| 70 6c 65 74 69 6f 6e 2d | 73 65 61 72 63 68 2d 6e |pletion-|search-n|
|00005a00| 65 78 74 20 65 6e 74 72 | 79 20 73 74 72 69 6e 67 |ext entr|y string|
|00005a10| 20 63 6d 70 6c 2d 6d 65 | 72 67 65 2d 73 74 72 69 | cmpl-me|rge-stri|
|00005a20| 6e 67 2d 63 61 73 65 73 | 20 63 6f 6d 70 6c 65 74 |ng-cases| complet|
|00005a30| 69 6f 6e 2d 74 6f 2d 61 | 63 63 65 70 74 20 73 69 |ion-to-a|ccept si|
|00005a40| 74 2d 66 6f 72 20 63 6f | 6d 70 6c 65 74 69 6f 6e |t-for co|mpletion|
|00005a50| 2d 73 65 61 72 63 68 2d | 70 65 65 6b 20 63 6f 6d |-search-|peek com|
|00005a60| 70 6c 65 74 69 6f 6e 2d | 63 64 61 62 62 72 65 76 |pletion-|cdabbrev|
|00005a70| 2d 70 72 6f 6d 70 74 2d | 66 6c 61 67 20 6d 65 73 |-prompt-|flag mes|
|00005a80| 73 61 67 65 20 22 4e 65 | 78 74 20 63 6f 6d 70 6c |sage "Ne|xt compl|
|00005a90| 65 74 69 6f 6e 3a 20 25 | 73 22 20 22 4e 6f 20 25 |etion: %|s" "No %|
|00005aa0| 73 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 2e 22 20 22 |scomplet|ions." "|
|00005ab0| 6d 6f 72 65 20 22 20 22 | 22 5d 20 35 20 22 5c 0a |more " "|"] 5 "\.|
|00005ac0| 46 69 6c 6c 20 6f 75 74 | 20 61 20 63 6f 6d 70 6c |Fill out| a compl|
|00005ad0| 65 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 77 6f 72 |etion of| the wor|
|00005ae0| 64 20 62 65 66 6f 72 65 | 20 70 6f 69 6e 74 2e 20 |d before| point. |
|00005af0| 20 0a 50 6f 69 6e 74 20 | 69 73 20 6c 65 66 74 20 | .Point |is left |
|00005b00| 61 74 20 65 6e 64 2e 20 | 20 43 6f 6e 73 65 63 75 |at end. | Consecu|
|00005b10| 74 69 76 65 20 63 61 6c | 6c 73 20 72 6f 74 61 74 |tive cal|ls rotat|
|00005b20| 65 20 74 68 72 6f 75 67 | 68 20 61 6c 6c 20 70 6f |e throug|h all po|
|00005b30| 73 73 69 62 69 6c 69 74 | 69 65 73 2e 0a 50 72 65 |ssibilit|ies..Pre|
|00005b40| 66 69 78 20 61 72 67 73 | 20 3a 3a 0a 20 20 63 6f |fix args| ::.  co|
|00005b50| 6e 74 72 6f 6c 2d 75 20 | 3a 3a 20 6c 65 61 76 65 |ntrol-u |:: leave|
|00005b60| 20 74 68 65 20 70 6f 69 | 6e 74 20 61 74 20 74 68 | the poi|nt at th|
|00005b70| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 74 |e beginn|ing of t|
|00005b80| 68 65 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 72 61 |he compl|etion ra|
|00005b90| 74 68 65 72 20 0a 20 20 | 20 20 20 20 20 20 20 20 |ther .  |        |
|00005ba0| 20 20 20 20 20 74 68 61 | 6e 20 61 74 20 74 68 65 |     tha|n at the|
|00005bb0| 20 65 6e 64 2e 0a 20 20 | 61 20 6e 75 6d 62 65 72 | end..  |a number|
|00005bc0| 20 20 3a 3a 20 72 6f 74 | 61 74 65 20 74 68 72 6f |  :: rot|ate thro|
|00005bd0| 75 67 68 20 74 68 65 20 | 70 6f 73 73 69 62 6c 65 |ugh the |possible|
|00005be0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 62 79 20 | complet|ions by |
|00005bf0| 74 68 61 74 20 61 6d 6f | 75 6e 74 0a 20 20 60 2d |that amo|unt.  `-|
|00005c00| 27 20 20 20 20 20 20 20 | 3a 3a 20 73 61 6d 65 20 |'       |:: same |
|00005c10| 61 73 20 2d 31 20 28 69 | 6e 73 65 72 74 20 70 72 |as -1 (i|nsert pr|
|00005c20| 65 76 69 6f 75 73 20 63 | 6f 6d 70 6c 65 74 69 6f |evious c|ompletio|
|00005c30| 6e 29 0a 20 7b 53 65 65 | 20 74 68 65 20 63 6f 6d |n). {See| the com|
|00005c40| 6d 65 6e 74 73 20 61 74 | 20 74 68 65 20 74 6f 70 |ments at| the top|
|00005c50| 20 6f 66 20 60 63 6f 6d | 70 6c 65 74 69 6f 6e 2e | of `com|pletion.|
|00005c60| 65 6c 27 20 66 6f 72 20 | 6d 6f 72 65 20 69 6e 66 |el' for |more inf|
|00005c70| 6f 2e 7d 22 20 22 2a 70 | 22 5d 29 0a 28 62 79 74 |o.}" "*p|"]).(byt|
|00005c80| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c0 c3 |e-code "|...\"...|
|00005c90| c2 5c 22 88 c4 0d c6 c7 | 23 87 22 20 5b 67 6c 6f |.\".....|#." [glo|
|00005ca0| 62 61 6c 2d 73 65 74 2d | 6b 65 79 20 22 8d 22 20 |bal-set-|key "." |
|00005cb0| 63 6f 6d 70 6c 65 74 65 | 20 5b 34 31 39 34 33 31 |complete| [419431|
|00005cc0| 37 5d 20 64 65 66 69 6e | 65 2d 6b 65 79 20 66 75 |7] defin|e-key fu|
|00005cd0| 6e 63 74 69 6f 6e 2d 6b | 65 79 2d 6d 61 70 20 5b |nction-k|ey-map [|
|00005ce0| 43 2d 72 65 74 75 72 6e | 5d 20 5b 34 31 39 34 33 |C-return|] [41943|
|00005cf0| 31 37 5d 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |17]] 4).|(defalia|
|00005d00| 73 20 27 61 64 64 2d 63 | 6f 6d 70 6c 65 74 69 6f |s 'add-c|ompletio|
|00005d10| 6e 73 2d 66 72 6f 6d 2d | 66 69 6c 65 20 23 5b 28 |ns-from-|file #[(|
|00005d20| 66 69 6c 65 29 20 22 c0 | 09 21 11 c2 09 21 89 1b |file) ".|.!...!..|
|00005d30| 89 1c 84 16 00 c5 1e 06 | c7 09 21 13 29 c8 8e 8a |........|..!.)...|
|00005d40| 0b 71 88 c9 20 2c 87 22 | 20 5b 65 78 70 61 6e 64 |.q.. ,."| [expand|
|00005d50| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 20 |-file-na|me file |
|00005d60| 67 65 74 2d 66 69 6c 65 | 2d 62 75 66 66 65 72 20 |get-file|-buffer |
|00005d70| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 2d 61 6c |buffer b|uffer-al|
|00005d80| 72 65 61 64 79 2d 74 68 | 65 72 65 2d 70 20 6e 69 |ready-th|ere-p ni|
|00005d90| 6c 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 2d 6d 65 |l comple|tions-me|
|00005da0| 72 67 69 6e 67 2d 6d 6f | 64 65 73 20 66 69 6e 64 |rging-mo|des find|
|00005db0| 2d 66 69 6c 65 2d 6e 6f | 73 65 6c 65 63 74 20 28 |-file-no|select (|
|00005dc0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 84 08 00 |(byte-co|de "....|
|00005dd0| c1 5c 6e 21 88 c1 87 22 | 20 5b 62 75 66 66 65 72 |.\n!..."| [buffer|
|00005de0| 2d 61 6c 72 65 61 64 79 | 2d 74 68 65 72 65 2d 70 |-already|-there-p|
|00005df0| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 62 75 66 | kill-bu|ffer buf|
|00005e00| 66 65 72 5d 20 32 29 29 | 20 61 64 64 2d 63 6f 6d |fer] 2))| add-com|
|00005e10| 70 6c 65 74 69 6f 6e 73 | 2d 66 72 6f 6d 2d 62 75 |pletions|-from-bu|
|00005e20| 66 66 65 72 5d 20 33 20 | 22 5c 0a 50 61 72 73 65 |ffer] 3 |"\.Parse|
|00005e30| 20 70 6f 73 73 69 62 6c | 65 20 63 6f 6d 70 6c 65 | possibl|e comple|
|00005e40| 74 69 6f 6e 73 20 66 72 | 6f 6d 20 61 20 66 69 6c |tions fr|om a fil|
|00005e50| 65 20 61 6e 64 20 61 64 | 64 20 74 68 65 6d 20 74 |e and ad|d them t|
|00005e60| 6f 20 64 61 74 61 20 62 | 61 73 65 2e 22 20 22 66 |o data b|ase." "f|
|00005e70| 46 69 6c 65 3a 20 22 5d | 29 0a 28 62 79 74 65 2d |File: "]|).(byte-|
|00005e80| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c0 c3 c4 5c |code "..|.\"....\|
|00005e90| 22 88 c3 0d 3e 83 14 00 | 0d 82 17 00 c3 0d 42 15 |"...>...|......B.|
|00005ea0| c0 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 61 64 |.." [def|alias ad|
|00005eb0| 64 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 2d 66 72 |d-comple|tions-fr|
|00005ec0| 6f 6d 2d 62 75 66 66 65 | 72 20 23 5b 6e 69 6c 20 |om-buffe|r #[nil |
|00005ed0| 22 08 c1 89 1a 1b 1c 0d | c6 3e 83 14 00 c7 20 88 |".......|.>.... .|
|00005ee0| c8 12 82 27 00 0d c9 3e | 83 5c 22 00 ca 20 88 cb |...'...>|.\".. ..|
|00005ef0| 12 82 27 00 cc cd 0d 5c | 22 88 2b c1 87 22 20 5b |..'....\|".+.." [|
|00005f00| 63 6d 70 6c 2d 73 6f 75 | 72 63 65 2d 66 69 6c 65 |cmpl-sou|rce-file|
|00005f10| 2d 70 61 72 73 69 6e 67 | 20 6e 69 6c 20 6d 6f 64 |-parsing| nil mod|
|00005f20| 65 20 73 74 61 72 74 2d | 6e 75 6d 20 63 75 72 72 |e start-|num curr|
|00005f30| 65 6e 74 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 73 |ent-comp|letion-s|
|00005f40| 6f 75 72 63 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |ource ma|jor-mode|
|00005f50| 20 28 65 6d 61 63 73 2d | 6c 69 73 70 2d 6d 6f 64 | (emacs-|lisp-mod|
|00005f60| 65 20 6c 69 73 70 2d 6d | 6f 64 65 29 20 61 64 64 |e lisp-m|ode) add|
|00005f70| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 2d 66 72 6f |-complet|ions-fro|
|00005f80| 6d 2d 6c 69 73 70 2d 62 | 75 66 66 65 72 20 6c 69 |m-lisp-b|uffer li|
|00005f90| 73 70 20 28 63 2d 6d 6f | 64 65 29 20 61 64 64 2d |sp (c-mo|de) add-|
|00005fa0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 2d 66 72 6f 6d |completi|ons-from|
|00005fb0| 2d 63 2d 62 75 66 66 65 | 72 20 63 20 65 72 72 6f |-c-buffe|r c erro|
|00005fc0| 72 20 22 44 6f 20 6e 6f | 74 20 6b 6e 6f 77 20 68 |r "Do no|t know h|
|00005fd0| 6f 77 20 74 6f 20 70 61 | 72 73 65 20 63 6f 6d 70 |ow to pa|rse comp|
|00005fe0| 6c 65 74 69 6f 6e 73 20 | 69 6e 20 25 73 20 62 75 |letions |in %s bu|
|00005ff0| 66 66 65 72 73 2e 22 5d | 20 33 20 6e 69 6c 20 6e |ffers."]| 3 nil n|
|00006000| 69 6c 5d 20 63 6d 70 6c | 2d 66 69 6e 64 2d 66 69 |il] cmpl|-find-fi|
|00006010| 6c 65 2d 68 6f 6f 6b 20 | 23 5b 6e 69 6c 20 22 08 |le-hook |#[nil ".|
|00006020| 85 21 00 09 c2 3e 83 13 | 00 c3 5c 66 3e 83 13 00 |.!...>..|..\f>...|
|00006030| c5 20 87 09 c6 3e 85 21 | 00 c7 5c 66 3e 85 21 00 |. ...>.!|..\f>.!.|
|00006040| c5 20 87 22 20 5b 65 6e | 61 62 6c 65 2d 63 6f 6d |. ." [en|able-com|
|00006050| 70 6c 65 74 69 6f 6e 20 | 6d 61 6a 6f 72 2d 6d 6f |pletion |major-mo|
|00006060| 64 65 20 28 65 6d 61 63 | 73 2d 6c 69 73 70 2d 6d |de (emac|s-lisp-m|
|00006070| 6f 64 65 20 6c 69 73 70 | 2d 6d 6f 64 65 29 20 6c |ode lisp|-mode) l|
|00006080| 69 73 70 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 2d |isp comp|letions-|
|00006090| 6d 65 72 67 69 6e 67 2d | 6d 6f 64 65 73 20 61 64 |merging-|modes ad|
|000060a0| 64 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 2d 66 72 |d-comple|tions-fr|
|000060b0| 6f 6d 2d 62 75 66 66 65 | 72 20 28 63 2d 6d 6f 64 |om-buffe|r (c-mod|
|000060c0| 65 29 20 63 5d 20 32 5d | 20 66 69 6e 64 2d 66 69 |e) c] 2]| find-fi|
|000060d0| 6c 65 2d 68 6f 6f 6b 73 | 5d 20 33 29 0a 28 64 65 |le-hooks|] 3).(de|
|000060e0| 66 61 6c 69 61 73 20 27 | 61 64 64 2d 63 6f 6d 70 |falias '|add-comp|
|000060f0| 6c 65 74 69 6f 6e 73 2d | 66 72 6f 6d 2d 74 61 67 |letions-|from-tag|
|00006100| 73 2d 74 61 62 6c 65 20 | 23 5b 6e 69 6c 20 22 c0 |s-table |#[nil ".|
|00006110| 20 88 8a 65 62 88 c1 1a | c3 c4 c5 8f 2a 87 22 20 | ..eb...|....*." |
|00006120| 5b 76 69 73 69 74 2d 74 | 61 67 73 2d 74 61 62 6c |[visit-t|ags-tabl|
|00006130| 65 2d 62 75 66 66 65 72 | 20 6e 69 6c 20 73 74 72 |e-buffer| nil str|
|00006140| 69 6e 67 20 65 20 28 62 | 79 74 65 2d 63 6f 64 65 |ing e (b|yte-code|
|00006150| 20 22 c0 c1 21 88 c2 c3 | 21 88 c4 20 89 15 83 13 | "..!...|!.. ....|
|00006160| 00 c6 0d 21 88 c3 75 88 | 82 00 00 22 20 5b 73 65 |...!..u.|..." [se|
|00006170| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 7f 22 |arch-for|ward "."|
|00006180| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 33 | backwar|d-char 3|
|00006190| 20 73 79 6d 62 6f 6c 2d | 75 6e 64 65 72 2d 70 6f | symbol-|under-po|
|000061a0| 69 6e 74 20 73 74 72 69 | 6e 67 20 61 64 64 2d 63 |int stri|ng add-c|
|000061b0| 6f 6d 70 6c 65 74 69 6f | 6e 2d 74 6f 2d 74 61 69 |ompletio|n-to-tai|
|000061c0| 6c 2d 69 66 2d 6e 65 77 | 5d 20 32 29 20 28 28 73 |l-if-new|] 2) ((s|
|000061d0| 65 61 72 63 68 2d 66 61 | 69 6c 65 64 29 29 5d 20 |earch-fa|iled))] |
|000061e0| 33 20 22 5c 0a 41 64 64 | 20 63 6f 6d 70 6c 65 74 |3 "\.Add| complet|
|000061f0| 69 6f 6e 73 20 66 72 6f | 6d 20 74 68 65 20 63 75 |ions fro|m the cu|
|00006200| 72 72 65 6e 74 20 74 61 | 67 73 20 74 61 62 6c 65 |rrent ta|gs table|
|00006210| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 63 6f 6e |." nil])|.(defcon|
|00006220| 73 74 20 2a 6c 69 73 70 | 2d 64 65 66 2d 72 65 67 |st *lisp|-def-reg|
|00006230| 65 78 70 2a 20 22 5c 6e | 28 5c 5c 28 5c 5c 77 2a |exp* "\n|(\\(\\w*|
|00006240| 3a 5c 5c 29 3f 64 65 66 | 5c 5c 28 5c 5c 77 5c 5c |:\\)?def|\\(\\w\\|
|00006250| 7c 5c 5c 73 5f 5c 5c 29 | 2a 5c 5c 73 20 2b 28 2a ||\\s_\\)|*\\s +(*|
|00006260| 22 20 22 5c 0a 41 20 72 | 65 67 65 78 70 20 74 68 |" "\.A r|egexp th|
|00006270| 61 74 20 73 65 61 72 63 | 68 65 73 20 66 6f 72 20 |at searc|hes for |
|00006280| 6c 69 73 70 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |lisp def|inition |
|00006290| 66 6f 72 6d 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |form.").|(byte-co|
|000062a0| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|000062b0| c3 20 15 c0 87 22 20 5b | 64 65 66 61 6c 69 61 73 |. ..." [|defalias|
|000062c0| 20 61 64 64 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 73 | add-com|pletions|
|000062d0| 2d 66 72 6f 6d 2d 6c 69 | 73 70 2d 62 75 66 66 65 |-from-li|sp-buffe|
|000062e0| 72 20 23 5b 6e 69 6c 20 | 22 c0 19 8a 65 62 88 c2 |r #[nil |"...eb..|
|000062f0| c3 c4 8f 2a 87 22 20 5b | 6e 69 6c 20 73 74 72 69 |...*." [|nil stri|
|00006300| 6e 67 20 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ng e (by|te-code |
|00006310| 22 c0 09 21 88 c2 20 89 | 13 83 00 00 c4 0b 21 88 |"..!.. .|......!.|
|00006320| 82 00 00 22 20 5b 72 65 | 2d 73 65 61 72 63 68 2d |..." [re|-search-|
|00006330| 66 6f 72 77 61 72 64 20 | 2a 6c 69 73 70 2d 64 65 |forward |*lisp-de|
|00006340| 66 2d 72 65 67 65 78 70 | 2a 20 73 79 6d 62 6f 6c |f-regexp|* symbol|
|00006350| 2d 75 6e 64 65 72 2d 70 | 6f 69 6e 74 20 73 74 72 |-under-p|oint str|
|00006360| 69 6e 67 20 61 64 64 2d | 63 6f 6d 70 6c 65 74 69 |ing add-|completi|
|00006370| 6f 6e 2d 74 6f 2d 74 61 | 69 6c 2d 69 66 2d 6e 65 |on-to-ta|il-if-ne|
|00006380| 77 5d 20 32 29 20 28 28 | 73 65 61 72 63 68 2d 66 |w] 2) ((|search-f|
|00006390| 61 69 6c 65 64 29 29 5d | 20 33 5d 20 63 6d 70 6c |ailed))]| 3] cmpl|
|000063a0| 2d 6d 61 6b 65 2d 63 2d | 64 65 66 2d 63 6f 6d 70 |-make-c-|def-comp|
|000063b0| 6c 65 74 69 6f 6e 2d 73 | 79 6e 74 61 78 2d 74 61 |letion-s|yntax-ta|
|000063c0| 62 6c 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 5c 22 |ble #[ni|l "...\"|
|000063d0| c3 c4 1d 1e 06 1e 07 c1 | c2 1e 08 1e 09 0e 08 0e |........|........|
|000063e0| 09 57 83 2a 00 ca 0e 08 | cb 0e 07 23 88 0e 08 54 |.W.*....|...#...T|
|000063f0| 89 16 08 82 13 00 2a 0e | 06 cc 1e 0d 89 1e 0e 83 |......*.|........|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.